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ABSTRACT 

Secondary school teachers incorporating the use of a 
computer in algebra^ trigonometry, advanced mat?aeiriaticsr chemistry^ 
or physics classes are the individuals for whom this book is 
intended. The content included in it is designed to aid the learning 
of programing techniques and basic scientific or mathematical 
principles^ and to offer some solutions to illustrative problems. 
Eight units are devoted to a step-by- step explanation of the FORTRAN 
IV ].anguage and programing, with material presented in a manner which 
assists the teacher in developing lectures and other forms of 
instruction which facilitate student imitation and encourage early 
operation of his initial attempt at programing. Following this 
introduction to FORTRAN and to programing is a problem supplement 
with five sections, one each devoted to algebra, trigonometry, 
advanced math, chemistry, and physics. A short bibliography is also 
incl uded . (Author/LB) 



FILMED FROM, BEST AVAIIABLE-COPY 



« — t 

; — r 
OO 

\y 

UJ Teaching Guide 

and 

Problem Supplement 



A Publication of the Exemplary Project 
Problem Solving Computer Style 
1969—1970 
funded by 
United States Office of Education 
Grant OEG 3-7-70384-4813 
under Title III 
of the 

Elementary and Secondary Education Act 
of 1965 * 



U.S. OEPARTME NT OF HEALTH, 
EDUCATION & WELFARE 
NATJONAL INSTITUTE OF 
EDUCATION 
THIS DOCUMENT HAS BEEN REPRO 
DUCED EXACTLY AS RECEIVED FROM 
THE PERSON OR ORGANIZATION ORIGIN 
ATiMG IT POINTS OF VIEW OR OPINIONS 
STATED DO NOT NECESSARILY REPRE 
SENT OFFJCJAL NATIONAL INSTITUTE OF 
EDUCATION POSITION OR POLICY 



6- 

CO 



ERJC 



Nevo Orleans Public Schools 
Dr. Alton W. Cowan, Superintendent 
703 Carondelet Street 
New Orleans, Louisiana 70130 



The work presen^:ed or reported herein was performed 
pursuant to a Grant from the U.S. Office of Education, 
Department of Health, Education, and Welfare. Howev- 
er, the opinions expressed herein do not necessarily re- 
flect the position or policy of the U.S. Office of Educa- 
tion, and no official endorsement by the U.S. Office of 
Education should be inferred. 

er|c 



PROBLEM SOLVING COMPUTER STYLE 
PROJECT TEAM 



Under the Direction of: 

Dr. Malcolm F. Rosenberg Jr., Assistant Superintendent for Instruction 
Olympia E. Boucree, Actin^;^ Supervisor of Mathematics 
Solange G. Petersen, Coordinator 



Teachers: 

Michael A. Achary 
Gradell L. Armand 
Harold J. Contreary 
Raymond P. Cougle 



Jean I. Cullen 
Edmond C. Drouet 
June B. Fey 
Milton Roos 



1970 

Solange G. Petersen, Coordinator 

For information write: Problem Solving Computer Style 

731 St. Charles Avenue 
New Orleans, Louisiana 70130 



FOREWORD 

The purpose of this !)ook is to serve as a guide for those secondary school teachers incorporating the use of a computer 
in algebra, trigonometry, advanced mathematics, chemistry, or physics classes. While experimenting with the learning 
of programming, teachers in the ESEA Title III Project, Pro[)lem Solving-Computer Style, revised these outlines. De- 
tailed notes, including many examples and teacher-made extrci'ies, were distributed to the students in lieu of a text. 
The programs included here could serve as demonstrations oi assignments. Selected to aid the learning of particular 
programming techniques and basic scientific or mathematical principles, these methods represent some possible — but 
not necessarily most efficient — solutions to given problems. 

The language used to program these problems, FORTRAN IV for the IBM 1130, can be easily translated into a lan- 
guage suitable for other computers. In the early stages of programmii.g, with the basic arithmetic statements of the 
FORTRAN language learned, a minimum of input and output instrucUon is given for two reasons: 1) to facilitate stu- 
dent imitation, and 2) to insure early operation of the student's first )r )gram. Having the student run his first program 
early and efficiently in the course provides motivation to pursue t^> re difficult problems, ( ften on the stuclent's own 
initiative. 

Arranging the material so that it both increases graduilly in programming difficulty and lemains consistent with the 
subject matter being learned as the computer-oriented discipline is often quite difficult. Son^ie technicjues must be pre- 
sented with the least possible detail; complete coverage of these techniques must be deferred until sufficient knowledge 
can be gained in the regular course work. Most students are eager to experiment with each new technique as it is pre- 
sented, and many seek out applications from, topics currently being learned or those previously mastered. The more 
adventurous student tries to learn new topics on his own. 

Since there are few textbooks on programming available at the secondary level, and sinc.^ the manuals provided by 
the manufacturer are more suitable as reference books for those already knowledgeaoje in programming, the teacher 
must develop his own lectures and notes, particularly for the early stages of instruction. With the foimdation estab- 
lished, the student should be capable of comprehending the numerous texts and manuali- available for use at the college 
or the professional level. If computer time is made available to the capable, interest^c- student, then only encourage- 
ment is needed to insure rapid progress . 

Perhaps this book of outlines and illustrative problems will be helpful to teachers who are seeking a way to enrich 
their courses to prepare students for the "computer revolution ' . 
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EXPANDED TEACHWG GUIDE 
. Fortran Language Unit I 

A. WHAT IS FORTRAN? 

FORTRAN is a symbolic language, similar in many ways to regular algebra, which is particularly adapted to 
the programming of scientific and mathematical problems. Maae up of 22 different types of statements, FOR- 
TRAN was first designed by IBM and some of its customers for the IBM 704, for solution of engineering and 
scientific problems. The name FORTRAN is from FORmula 7'fi.ANslation 



B, BASIC ARITHMETIC OPERATIONS 

L Arithmetic And FORTRAN Symbols 

Arithmetic Fortran 

Addition -|- + 

Subtraction 

Multiplication X > ° (asterisk) 

Division -f- / (slash) 

Exponentiation X " 

(small number elevated to right) ^ 

2, Order Of Operations 

a. Exponentiation is performed first. 

b. Multiplication or division is done next moving from left to right. 

c. Addition or subtraction is done last also moving from left to right. 

d. All operations at each level of hierarchy" must be completed before going on to the next level. 

3. Use Of Parentheses 

a. Computing begins within the innermost pair of parentheses when sets are contained within one 
another. 

b. All parenthesized expressions must be completely executed before other operations are executed. 

c. Within each pair of parentheses the usual rules of hierarchy of operations still apply. 

d. The result of operations within the parentheses becomes the quantity used in the overall expression. 




4. Constants 

a. Numbers which are used to specify known quantities in mathematical expressions are called constants. 
Their values do not change through the problem. 

b. Those constants which contain a decimal point are in the real mode. Real constants may be greater 
than 10'^^ , but less than 10^^, and seven digits are significant. They may be written in the normal 
decimal notation or in exponential form, which will be discussed in detail later. 

c. Constants which do not contain a decimal point are in the integer mode. An integer constant must lie 
between -32J67 and 4-32,767. 

5. Variables 

a. Variables are symbols which represent quantifies whose values are specified elsewhere in the program. 

b. A variable name is used in the FORTRAN expression. 

(1) Names may have 1 too alphabetic or numeric characters. 

(2) The first character must be alphabetic and is significant to the mode of the variable. 

(3) 'No imbedded blanks are permitted. 

(4) No operation signs are permitted. 

(5) All letters must be capitals. 
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6. Arithmetic Modes 

II. The mode oi an aritliiuetic expression is deterniini'd i)\ the eonstants Ut\(l viirial)Ies in tlie expression. 

(1) Heal mode' 

(u) (Constants eontain deeimal points. 

(b) \"arial)le names hej^in with a letter other tiian 1. J. K, I,. M. or \. 

(2) Integer mode 

(a) ("Constants contain no deeimal points. 
(1)) Variable names bej^in with I, J. K, L, M, or \. 
b. If variables and eonstants are not ol the same mode, a mixed-mode expression results, 

7. FORTRAN Expressicms 

Any <.\n\!}v constant or variable, or an\ eoml)ination of eonstants, variables, and operation sij^ns is 
known as a KORTH.-W expression, .Mi iiuantitie.s in an expression should be of the same mode. I'iie 
exee[)tion to this is that the mode of an exponent need not neeessariK* agree with the remainder of the 
arithmetic expression, ^ 

C. FORTRAN ARITHMETIC STATEMENTS 

1, A FOH'I'RAN arithmetic statement is made up of a variable name, followed by the ecjual sign and then fol- 
lowed hy a KOIvrHAN expression. 

2. The execution ol an arithmetic statcn:cni is as follows; the expression on the right of the = sign is comput- 
ed according to the rules of hierarchy and the result is assigned to the variable whose name appears on the 
left of the ccjual sign, 

D. SIMPLE INPUT/OUTPUT STATEMENTS WITH FORMAT 

L Input statements l)egin with the word READ followed by an open parenthesis, 2 numerals separated bv a 
comma, a closed parenthesis, and a list of variable names separated h\' conmias. The first numeral within 
the parentheses is the code number for the 'input device to be used, the second is the number of an asso- 
ciated statement called a FORMAT, which describes the form in which the data will he arranged on the 
input device, 2 is the code for the card or card reader and 6 is the code for data to be entered on the console 
keyboard. 

READ (2,4) ALT, BASE 

2, Output statements have almost the same form as input statements except that the opening word is WRITE 
and the code numbers are I for the console typewriter and 3 for the printer, 

WRITE (3,8) ALT, BASE, AREA 

3. Format statements consist of a statement number, punched in columns 1 through 5, the word FORMAT, 
pn open parenthesis, format codes, a closed parenthesis. A FORMAT defines the layout of data on a card, 
or a printed line, » 

u. 4 P^ORMAT(2F8,2) 

(1) The FORMAT statement above, associated with the READ statement illustrated in Section Dl 
causes two real numbers (F code), each punched in S card columns and each having two decimal 
places to be read into memory. The first number will be stored as ALT and the second as BASE, 

(2) CODES 

F Real Numbers 

I Integers 

E Exponentials 

A Alphanut^eric Characters 

H Alphauumeric Characters (literal translation) 

X Blanks 

b. 8 FORMAT (2X, 'ALTITUDE = ',F8.2,bX,'BASE = \F8.2,5X, 'AREA = ',F8.2) 
This FORMAT is associated with the WRITE statement illustrated above. 
2X — allows 2 spaces to be skipped, one for carriage control and one tor neatness. 
'ALTITUDE = * — everything within the apostrophes is c(ipied f)y the computer. 
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F8.2 — allows space lor the \ aluc oF the altiliide to i)e prititecl. -S is tlu' lieltl widtli. .2 spcvilu's 2 dcvi- 

nial places lo he |)ritite(l. 
5X — allows spacinjj; tor neatness. 

/i. STOP STATEM EST 

1. TlleS'^(M^statelne!lt consists ()t onj\- tlieMord STOP. 



2. TliJS stateirient brings the computer to a, halt atul it ina\- not i)e rc»starled w itiioiit retiirninii; to the iiei^iii- 
ning tit the program . 

END STAT EM EST 

1. The word \\\D is the eoni{:letc statement, it must i)e tiie filial step of every program. 

2. The K\ D statement does nothing hut tell the computer during the trans lati(m stage that the [:)rogram that 
it has heen receiving is complete. i^ver\ I'X^HTRAN [program must have KND as its lust statement. 

G. CALL EXIT 

1. The word (!ALL is the standard word in use lor using a FORTRAN subroutine. IIW'V is the name oFasul)- 
routine sujijplied the manufacturer. 

2. CALL KXIT ma\- he used instead of the STOP statement to stop the execution of a program. 

IL FIRST EOBTRAN PROGRAM FOR SOLUTION OF A MATHEMATICAL FORMULA, 
L 'Coding Sheet 



J.. 



ca_.laJ._l.xj_t. 



2. Datacard 



T LT U,D£ 




5;f , ' BA^L 



F6 



a.. 2/ 



W COM 



srATEMEKT 
NUMBER 



COCO 

2 3 4 5 

n n 



2 2 2 | 

3 3 3 3 
4I44 4 4 

5 5 5 5 5 
E 6 6 6 
7 7 7 7 
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9 9 9 

[l|2 3 4 S 



00 



5.00 

J 



FORTRAN STATEMENT 



BED 0 0 0 0 OBiO 0 0 0 0 0 0 0 0 C 0 0~0 OOOOOODOOQOODOOOOOODODQOOOODOOOOOflOOOflOQOQO 

7 e 9 10 1113 13 14 15 16 17 13 19 20 71 22 2334 25 26 ?) 28 29 30 31 32 33 34 35 36 37 38 39 40 4H2 43 44 4S4S 47 4M9 50 3) 52 53 54 55 56 57 53 59 60 61 62 63 64 63 65 57 68 69 10 71 17 

n n 1 n n n n u n M M n n 11 1 M n n 1 n n n n n u n 11 1 11 11 1 n 1 n n n 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2.2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 ? 2 2 2 

3 3 3 3 3 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3'3 3 3 a 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
44444444444444444444444444444444444M444444444444444444444444«14444 
5 5 5 5 5 515 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
G6666666666668666666B6666666666B66666666666666666666666666666G6686 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 U 7 7 7 ? n 7 7 7 7 7 M 7 7 

8 B 8 8 8 8 8 1 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 6 8 8 6 8 8 8 8 8 8 B 8 8 8 3 8 8 8 8 8 a R 8 8 8 B 8 8 8 8 8 8 B 8 8 8 8 8 8 8 U 



lOeNTlFlCATiON 



999993999995999999 9 9 999999999999999999959998999^9999959999999939999 

7 8 5 10 n 12 13 W 15 iS tl t8 19 20 21 2? 23 24 23 26 27 28 23 3a 3< 32 33 34 « 3S 37 3J 39 40 V 12 ,3 i'. 45 46 47 «8 49 50 Sf 5/ 53 M 5S f.fi 57 54 <3 60 fal fi3 54 « 66 67 68 6S TO K 17 



0 0 0 0 0 Q G 0 

74 ?5 ; 6 77 78 79 6 0 

1 1 1 n n 1 

2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 

4 4 4 4 4 4 4 4 

5 5 5 5 5 5 5 5 

6 6 6 6 6 6 G 6 
11111111 

8 8 8 8 8 8 8 8 

9 9 9 9 9 9 9 9 

1? n 75 « n 73 73 «■ 



/. DATA CARDS 



I, Agreement wir'i FORMATS 

It is a good practice to have the card puiu^hed with data and^tlie FORMAT describing the data agree. The 
following are examples ol data cards and a;;reeing FORMATS. 



u, 1 FORMAT (F7,2) 



r-234.|5B 



i 



■ATEMEWT 
NUMBER 



OlOOO 0 
ll? 3 4 5 

llll 11 
I 

2C2 2 2 



3!3|3| 

4j4 49 4 
5I5555B 



&i£ 6 6 6 
71? 7 7 7 
818 8 8 B 
gjs 9 9 9 

1|2 3 4 5 



FORTRAN ST A TEMEINT 



IDENTIFICATION 



0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 oqo 0 0 0 0 0 0 0 

7 B 9 10 n 12 13 14 IS 16 17 18 19 20 21 22 n 24 ZS 26 27 29 29 30 31 32 33 34 35 36 37 3B 39 40 41 42 43 44 45 46 47 46 49 SO SI S2 U ^ 56 S7 SB 59 60 61 62 63 64 6S 66 67 68 69 70 7] 7? ^1 74 75 76 77 7B 79 BO 

1 1 1 11 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 n 1 11 11 1 1 1 11 1 1 1 M 11 11 n 1 11 11 1 1 11 1 1 1 1 11 11 1 1 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 f 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
33333333333333333333333333333333333333333333333333333333333333333333333333 

444444444444444444444 4 444444444444444444444444444^4444444M4M44444M44444 
55555555555555 555555555555555555555555555555555555555555555555555555555555 
I666666B66B866666666666666666666666686666666666666866666666666666686666E66 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 7 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 

8 8 8 8 B 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 0 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 
99999939999999999399999999999999999999999999999999999999 9 99999999999999999 

7 B 9 10 n 12 <3 U IS 16 n IB i9 20 21 27 23 ?4 2S 26 27 2B 29 3a 31 32 33 34 3S 36 37 38 39 40 tl 42 43 44 4S 46 47 H SO Si S2 S3 M Sb !>6 S7 5b 59 6C b1 S7 63 64 RS 66 67 66 69 70 n 72 73 7S 76 77 73 79 B 



b. 2 FORMAT (3F6.3) 



O COM 



STATEMENT 
NUMBER 



5.62f3h7.560 3. 



OiO 0 0 0 

ll? 3 4 S 

i|n 1 1 

2j2 2 2l 
3i3| 3 3 



4j4 4 4 4 4 
5|l 5 5 5 5 
616 bB B 
7l7 7 7 7 
8188 8 8 



9|9 9 9 9 

M2 3 4 S 



FORTRAN STATEMENT 



IDEMTtnCATION 



0000 Ol 00000000 0 0 0 0 0 0 0 0 0000000000000000000000000000000000000000000000000000 

7 9 9 10 11 12 13 14 IS 16 17 IB 19 20 21 ?? 23 24 » 26 27 29 29 30 31 32 33 34 3S 36 37 3B 39 40 41 <2 43 44 45 46 47 46 49 SO Si S2 53 54 55 58 57 5B 59 60 61 62 B3 64 65 66 67 88 69 70 71 72 74 75 76 77 79 79 BO 

1 1 1 11 1 M 1 1 M 1 1 n 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 n 11 1 1 n 1 1 1 n 1 n n 11 1 1 1 1 1 n 1 1 1 n 1 ) n n n 1 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 r. 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 J 2 2 2 2 2 2 2 2 2 2 2 

3 3| 3 3 3 3 3 | 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
444444444444444444444444444444444444444444444444444444444 4,4 444444444444444 
5 5 585555555555555555555555555555555555555555555555555555555555555555555555 
BBB£BbBBSBBB8B68666BBB6BBBBBBBBBB66B6BBBBBB6B6B666B68BBB6666B6666666666866 



7| 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 
8 8| 8 6 8 8lB 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 
99999999999999999999999999999$999999 9 99999999999999999999999999999 

7 8 J 10 II 12 13 M M 16 17 H »9 20 2» 22 23 24 25 26 27 29 29 3a 31 32 33 M 35-38 37 M 39 40 V 42 4 3 44 45 46 4 7 4 8 4 9 SO 51 52 53 54 Sb 56 57 5j, 59 CO b1 S? 6* RS 66 67 68 69 TO H 72 

ii»(«aAi&'» 



7 7 7 7 7 7 7 7 



9 9 9 9 9 9 9 9 

7? 74 75 76 n 78 79 9J 



c, 3 FORMAT {F10.4,F12.6) 



con 



STATEMEirni 
NUMBCR 



OlO 0 0 0 

|l 2 3 4 5 

1*1 n 1 

2j2 2 2 2 
3!s3 3 3l 
4|4 4 4 4 4 

5[5 5 5 5 



!• 453021 
_J 



FORTRAN STATEMENT 



0 0 0 0 0 0 0 0 0 0 0 0 OlO 0 0 0 0 0 0 0*0 0000000000000800000000000000000000000000000 

7 S 9 10 1112 13 )4 15 16 U 16 19 20 71 22 23 24 29 26 27 20 29 30 31 32 33 34 3S 3C 37 38 39 40 41 42 43 44 45 4C 47 U 49 SO SI 52 S3 54 56 57 S8 59 60 61 62 $3 S4 65 6€ 67 U fi9 70 71 77 

1 1 > 1 n 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 



lOCMTJFKUTlON 



7|7 7 7 7 
I 



9|9 9 9 9 9 

l| 2 3 4 5 



2I222 2222 222228222222222222222222222222222222222222222222222222222 
33|333333l33B33333333333333333333333333333333333333333333333333333 
4448444444|4444444444444444444444444444444444444444444M44444M444 
5 5 5 5 5 5 S 5 5 5 5| 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
666666666666666666666666666B66666666666666666666666666666666S66666 
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 
8888 88888l8888888888888888888888888888d888888888a888888S8888a88888 
9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9.9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 S 9 9 9 9 9 

7 6 9 to 11 12 13 U 15 t6 n tS \i 20 21 22 23 24 25 26 2? 2S 29 30 3* 32 33 34 3S 36 37 33 39 40 41 42 43 44 4S 46 47 49 49 SO 31 S2 S3 54 S^ S5 57 % 59 60 (il R3 &4 ftS 66 67 68 69 7Q H 72 



0 0 0 0 0 0 0 0 

•'I 74 75 7S 77 78 79 80 

M 1 1 1 1 1 1 

2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 
44444444 
5 5 5 5 5 5 5 5 
66666666 
77777777 



9 9 9 9 9 9 9 9 

" f* 75 ?6 77 78 ;9 e.' 



d. 4 FORMAT (2I4,F73,I6) 



23 m4 6.222 11234 



STATEMOrr 
NUMBER 



OlO 0 0 OjO 

1I2 3 4 sIg 

111 1 1 l|i 
I 

2I2I222 

3!3 383 



4|4 4 4 4 

5j5 5 5 5 

|£iE6 66 
I 

7(7 7 7 7 
\ 

818 8 8 8 
f 

3I9 9 9 3 

1(2 3 4 S 



FO??TRAN STATEMENT 



•DCMTinCATIOH 



0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 J 0 0 0 G 0 0 0 0 

7 I 9 10 11 12 13 K IS 16 n 18 11 20 71 22 23 24 2S 26 27 26 29 3 0 31 32 33 34 3S 36 37 38 3$ 40 41 42 43 44 45 4S 47 48 49 so St 52 S3 S4 55 S6 57 Sa SI 30 61 62 63 64 6S 68 67 89 69 70 71 7? ^ 

1 1 1 1 1 1 1 1 1 IIQ 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

222222IBB222I2222 2222222222222222222222 22222222222222222222 k22222222222222 
3 3 3 3 3 g 3 3 3 3 3 3 3I 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
13 44444444444484444444444444444444444444444444444444 4444444444M444M44444 

555 5 55 5 5555555555555555555555555555555555555555555555555555555555555555555 
6 6 6 ele 66666666666666666666666660666666866666666666666666666666666666666666 



777777777777777777777777777777777777777777777777777777777 7.7 7 / 7 7 7 7 7 7 7 7 7 7 7 7 7 



8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 3 8 8 8 8 8 8 U 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 
99999999999999999999999999999999999999999999999999999999999999999 9 

7 « 10 11 t2 t3 U 15 16 n ts «9 20 2) 27 23 24 25 26 27 28 29 30 31 32 33 34 3S 36 37 33 39 40 41 42 43 44 4S 46 47 48 49 SO 51 52 S3 S4 Sb S8 57 Sk $1 60 b1 S7 R3 64 R5 68 67 68 69 10 71 72 



S S 8 8 8 8 8 8 
99999999 

T» 14 7^ 75 77 7 8 79 8.' 
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2. Datir cards are placed behind the rest of the program after the ; / XEQ. 
•3. A blank card rmist be placed after the data cards. 

CONTROL CARDS 

1. Monitor Oontrol Ca:ds 

The connputer disk is loaded w ith a Supervisor or Monitor, which is a program to coordinate the operations 
of a compu rng system. The Supervisor controls the transition from job to job. The Monitor Control Cards 
needed at this time are: 

// JOB Start a new job 

/ / FOR Start a compilation (translation 

from FORTRAN to machine language) 
// XEQ * Load and execute program 



FORTRAN Control Cards 

These cards may be placed in any sequence after the // FOR. FORTRAN control cards needed at thi,s 
time are: « 

mocs(c:ard.diskji32 printer, TYPE\VRITER,KEYP0ARD) 



Ide ntifies al! logical I/O devices to be 
used during execution of the program 
'LIST SOURCE PROGRAM List all prcigram cards 

'"JOHN DOE JR. F(vr program identification: will 

print on top of every page 



IBM 



nmnhU Coilmii rurm 



..1 



.SPA «.CC.P/^0<3-.S/^iA\.. 
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ArTER 
'END' 
STATEMENT 



DATA CARDS 



// XER 

w cota 



STATEMENT . 
MUMOER 



FORTRAN STATEMENT 



lOCHTtriCATION 



PROGRAM 



4. 



COHMCI 



3. 



TAT. MEKTl" 



SaiRCE PROGRAM 



,-incS)<pARB, DISkVl 13^Rlte, TYP&S?fE^.1<^YBa^ARD> ^ ^ '^^'^^ 

l> 1 'I r'J M l 1 r 1 

TAT liEMT 



2. 



F OR" 'R. .N S T A' 'E N/ HINT 



STATEMO 
NUUeCR 



FORTRAN ST A TEMENT 



.0^ 



iDeNTirlCATlON 



tOEKTl^'ICATlOfl 



0 00 
717110 

1 1 1 



iDCMTtFiCATlON 



00 0 

76»tO 

1 1 1 



STAT Ell > 
NUMBER 



I 000 

ll2 3 4 3 

! II I 

I 

212 2 2 2 

3la 3 a a 

I 

4I4 4 4 4 

al&B 6 
I 

7I7 7 7 7 



8'8 8 8 8 8 
I 

sis 9 9 9 9 
Ml 1 4 s 



FORTRAN STATEMENT 



iDCNTiriCATION 



0 0 0 0 0 0 D D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
7 I 1 10 n 12 13 M a II n n n n 21 22 23 24 » n 27 n 29 30 31 3: 33 m 3s 31 37 n 40 4ui u 44 45 4e 47 u «9 H si u u S4 u s« 5; si 31 u si u u u u u si u ss 70 71 n 

1 1 1 1 1 1 1 1 11 11 1 1 1 11 n 1 1 1 1 1 1 1 n n 1 1 1 1 1 11 1 1 1 1 1 1 1 11 1 1 1 1 1 n 11 11 11 1 n 1 1 11 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 2 2 2 2 2 2 2 2 2 

a a a a a a a a a a a a a a a a a 3 a a a a a a a a a a a a a a a a a a 3 a a a a a a a a a a a a 3 a 3 a a a a 3 3 3 a a a a a a a a 

4444444444444444444444444444444444444444444444444444444444444444444 



5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S55SS 5 5 5 S5SS S 5 5 5 S 5 5 5 5 55&&5 5555 5 5 5 5 5 S5 5 



6666f;66666566666666666666666666666666666666$666666668&66666&6&&66& 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7/777777777777777777777777777 

8 88888888888888888888886888888888888888883888888888888888888888888 
999999999999999999999999999999999998999999999999999999999999999999 

7 I I 10 n 12 13 u IS IS n i| «« }{) 21 22 23 24 n 21 27 It It 3(1 3t 32 33 U 39 11 37 31 3« 40 It 42 43 44 4 5 4fi 47 41 41 U SI U U M U U 57 Sk » 10 hi $7 U M CS M 17 II 69 70 n n 

CONTROL CARDS 



0 0 0 0 0 0 0 0 

•n 74 75 7l777171IOl 
1111111 

22222222 

a a a a a a a a 
44444444 



6 6 8 6 6 6 6 8 

7 7 7 7 7 7 7 7 
88888688 
9 9 9 9 9 9 9 9 

7? '* 75 7« 77 71 7S Iv 



717110 
I 1 I 

222 

a a a 

44 4 

5 5 5 
666 

7 7 7 

8 8 8 

9 9 9 

I 71 73 Iv 



2 2 2 

3 33 
444 
5 5 5 
666 
? 7 7 
8 8 8 

|7a 79 1 J 



2 2 2 

3 3 3 
444 
5 5 5 
666 

7 7 7 

8 8 8 
i9 9 9 

71 71 IJ 
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STATEMENT 
NUMBER 



ClO 0 0 0 
t»2 3 4 5 

l|l 1 11 

81 



3. Program Cards 
END 



STATEMEKT 
NUM8CR 



OlO 0 0 0 
|l3 3 4 5 
l|l ] 1 1 



0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 00000000000000000000000000000000000000 OlO 0000000 

7 8 9 ton 12 13 M 15 16 17 J8 19 20 21 22 13 24 25 26 27 2$ 23 30 31 32 33 34 35 36 37 3« 39 « 41 «« 44 45 « 47 48 49 50 5! 52 53 54 55 56 57 58 59 GO 61 B2 63 64 65 M 87 68 69 70 n 72 74 75 76 77 7? 79 BO 

1 1 1 1 H 1 1 1 1 1 n 11 1 n 11 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 11 11 11 11 11 1 1 1 1 1 1 1 1 I i|, n 1 1 1 1 1 
CfiJL EXIT 



STATeUENT 
HUM8CR 



OfOO 0 0 
|l2 3 4 5 
1|1 1 1 1 



STATEMENT 
NUMBER 



OlO 0 0 0 
1I2 3 4 

111 



1 1 1 



\mf COM 



STATEMENT 
NUMBER 



OtO 0 0 0 
1I2 3 4 5 
ill 1 1 1 

41 



STATEMENT 
NUMBER 



OlO 0 0 0 
ti2 3 4 5 

1|1 1 1 1 

COMM! 



STATEMENT 
NUMBER 



OlO 0 0 0 

}h 3 4 5 
ill 1 1 1 

2j2 2 2 2 

3!3 3 3 3 

4J4 4 4 4 

5|5 5 5 5 

&16 6 6 6 
I 

7l7 7 7 7 
I 

818 8 8 8 



9 9 9 9 

2 3 4 5 



OOOQOO 0. OOOOOOOOOOQOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO 

7 B 9 rO n 12 13 14 15 16 J7 18 W 20 n 22 23 24 2S 26 27 28 29 30 31 32 33 34 35 36 37 3« 39 40 41 42 43 44 45 4f 47 4849 30 5f 52 53 54 55 55 57 5 8 59 60 61 62 6J 64 $5 66 67 6« 69 70 71 7? 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 n 1 1 
«^nRMAT<2X,' ALTITUDE >F3.2»5X> "BASE #F3.2»5X, ■ AREA =''»F8.£) 



1111 1 i 1 1 1 1 111111111111111111111 
WRITEOj 8>ALT» 3ASE» AREA 



FCRXRAN STATEMENT 



IDENTIFICATION 



FORTRAN ST ATEMEfMT 



'OeHTtFKAXtOtt 



0 0 0 0 0 0 0 0 

74 75 W ?7 78 7* eo 

) 1 1 1 1 n 1 



FORTRAN STATEMENT 



00000 00 000 0 00000 0000 0 000.0000 OOOO.O.OODOOOOO 000000000 

7 B 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 2 4 25 ZS 27 28 23 30 31 32 33 34 35 36 37 38 39 40 4 M2 43 44 4 5 46 47 48 49 50 51 U 53 54 5 5 56 57 58 59 60 61 62 63 64 65 66 67 6B 69 70 71 /2 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 r 1 r 1 1 1 1 1 1 1 1 1 1 1 1 1 



JDENTJFICATJON 



00000000 

74 75 76 77 78 79 80 
I 1 1 1 1 1 1 1 



F ORTRAN STATEMENT 



I 0 Ol. 0 0 0! D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 Q 0 0 0 0 0 0 0 0 0 

7 B 9 10 11 12 13 M 15 16 17 18 W 20 21 22 23 24 25 26 27 28 M 30 31 32 33 34 3536 37 31 39 40 4M2 43 44 45 46 47 48 49 50 51 W 53 54 55 56 57 a 59 M 61 62 63 64 65 66 67 68 69 70 71 72 



lOENTiriCATtON 



1111111111 1111 111 

nREA=l • /2. »ALT«BASE 



11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 



FORTRAN STATEMENT 



0000000 00000 000000000000000000000000000000000000000000000000000 

7 8 9 10 11 12 13 M 15 16 17 IB 19 20 21 2 2 23 24 25 26 27 2fl 29 30 31 32 33 34 35 36 37 38 3 9 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 39 6 0 61 82 « 64 65 66 67 68 69 70 71 « 

' 1 1 ' r r 1 1 r 1 1 1 r 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 n 1 1 n 11 1 1 1 1 n 2^1 111111111' 
F0RrtATC2F3.2) 



00000000 

74 75 76 77 78 7a 80 
1111111 



tDENTiriCATlON 



FORTRAN STATEMENT 



0 0 0 0 0 0 0 Q 

■»•> 74 75 76 77 78 79 BO 

M 1 1 1 1 1 1 



«/3£NT|F>C*TlON 



0 ti 0 0 0 0. 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 o'o 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

7 B 8 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 2 6 27 28 29 3 0 31 32 33 34 35 36 37 38 3S 40 414? 43 44 45 4fi 47 484550 5J 52 53 54 55 56 57 58 59 fiO fif 6i "J «4 63 66 67 M 63 70 71 72' 

1 1 1 r 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ijj_i 11111111 

READ(2>4>ALT>BASE 



0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 fO 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 O'C 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

7 8 5 JO IJ I? B M 15 J6 17 58 19 20 21 22 23 24 25 26 27 28 29 3 0 31 32 33 34 35 :;6 37 38 38 4 0 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 81 82 63 64 65 66 67 68 68 757172-^ 74 75 76 77 78 79 80 

1 1 ; 1 1 1 1 1 r 1 1 1 r 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

22222 '2222222 2 '222222222222 222222 222 22222222222 222222 2222222222 2222222222 



FORTRAN STATEMENT 



fj 0 0 0 0 0 0 0 

'1 74 75 76 77 78 7S 80 

M 1 1 1 1 1 1 



IDENTIFICATION 



33333333 
4 4 4 4 4 4 4 4 
55555555 

6 G 6 G 6 G G G 

7 7 7 7 7 7 7 7 

8 8 8 8 8 8 8 8 

9999 999999999 999999999999999S9999999999999999999999999999999999999S999999 

7 I 9 10 11 12 '3 U 15 16 n i| 19 20 21 22 23 24 25 26 27 28 29 3l> 3« 32 33 34 15 36 37 38 39 40 4142 43 44 45 48 47 4849 50 51 52 53 54 55 56 57 5i W W bl 52 M S* 65 6£ 67 68 69 70 n J2in 7* 75 16 77 78 79 8 



3 3 3 3 3 3 '3 3 3 L L 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
4444 '444 '4444444444444444444444444444444444444444444444444444444444 
55G55 1 5 5 5 I55555 55 2 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
6666666666668G66G6666G66GS66G66a,6 666666G666G66666668666666666666666 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 ? 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 

8 8 8 8 8: 8 8 : 888 888888888888888888888888388888838888888888888888888,88 



4. Printout 



PAGE 1 
// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0002 0002 0000 

// FOR 

« IOCS { CARD »D I SK.1132PR INTER* TYPEWR I TER .KEYBOARD ) 
♦LIST SOURCE PROGRAM 

REA0[2.4).ALT.BASE 
4 F0RMAT(2F8.2 ) 

AREA=1«/2«*ALT»BASE 
WRITE( 3.8 >ALT«BASE»AREA 
8 F0RMAT(2X» 'ALTITUDE » • .F8,2 .SX* • BASE = • • F8 • 2 » 5X» • AREA ««»F8.2) 
CALL EXIT 
END 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 6 PROGRAM 86 

END OF COMPILATION 

// XEQ 

ALTITUDE " 2.00 BASE » 5,00 AREA = 5.00 



ERJC 



FORTRAN LANGUAGE 
Unit II 

A. STATEMENT NUMBERS 

1. Statement numbers are assigned to FORTRAN statements b> the programmer. 

2. They are used to serve as an identification wlien the statement is referred to b\" another statement in the 
program. 

3. rhe\' are plaeed to the left of f iie statement in cohmins I through 5. 

4. Restrictions 

a. No two statements may have the same statement number, 

b. The number may not exceed 5 digits. 

B. GO TO STATEMENT 

1. rhe GO TO statement is used to change the sequential order of execution of program steps. It is one of the 
P'ORTRAN control statements and is sometimes called an unconditional branch. 

2. This statement consists of the words GO TO followed by a statement number, for example: 

GO TO 30 

3. The statement following any GO TO statement nuist be numbered. 

C. COMMENT STATEMENTS 

1. Comment statements allow the programmer to insert comments or directions. These will not appear in the 
output unless a special control card is used. A well documented program will use many such statements. 

2. C is placed in column I of the FORTRAN statement card. The comment may be entered in any manner on 
the balance of the card. 

D. SAMPLE CONTINUOUS LOOP PROGRAM 

C THIS IS PROGRAM TO FIND THE AREA OF A CIRCLE WHEN THE RADIUS IS 
C ENTERED ON A CARD. 
30 READ (2,1) RAD 

1 FORMAT (F8.2) 
AREA= 3.14°RAD°'2 
WRITE(3,2)RAD,AREA 

2 FORMAT(2X,'RADIUS = \F8.2,5X,'AREA=:\F8.2) 
GO TO 30 

50 CALL EXIT 
END 
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IBM 



FDHTRAN Codins Form 



-.mcije._ 



-1— T" 



J^iOLLdE.J^,.!^ 



_50 



■f • 







-4 



A. 
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17). 



r 
r- 

r 

r - 



501 



s 


i 






i 


END . 






CALL EXIT 






jO to 30 






"0Ri1ATC2X» • RADILtS=' r3. 2, 5X» ' AREA=' F3. 2> 






JRITEC3>2)RABjAREA 






^REA=3. 143«RA3a£*2 







□Rf1AT<F3.2) 



!1 



READ<2f i )RAD 



THIE IS A PROGRAM TO FIND THE AREA OF A CIRCLE LfrEN THE RTWIUS IS 



STATEMEfnjj 
NUIilBER 



OiQ p 

|l2 J 4 5 
ijl 1 1 1 
I 

2j2 2 2 2 2 

'las'- 3 
I 

4I4 4 4 4 



5[5 5 5 5 

Gig B 6 6 
I 

71? 7 7 7 
I 

8{8 8 8 
g!9 9 9 9 

(|2 3 4 5 



ED urn A CARD 



W V V U V 

u M la ifl It 



R,0 R T R Ai!r4 toT A T EflN/dcl N T 



0 0 0 0 0 0 0 0 0 0 0 0 0 Q 000000 OOOOOOOQOQ-OOOOQOOOOO 0 0 0 0 0 0 0 0 0.0 0 OQ 0 0 0 0 

7 8 9 10 1) 12 13 14 15 ]6 17 IB 19 2D 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 3E 37 38 39 4^ 41 42 43 44 45 46 47 48 49 50 5l 52 53 54 55 56 57 SS 59 60 Gl S7 &3 M S5 E6 67 68 69 70 71 72 



lOCNTIFICATlOM 



^1 


1 1 11 1 1 1 1 1 1 1 1 1 1 


r 


1 1 1 


22 


222222222222222 


22 


2 22 


33 


3 " 3 3 3 3 3 3 3 " 3 3 3 3 3 


3 3 


3 33 


4^ 


4444444 *^4 444 44 4 


44 


444 


55 


555555"5555"555 


"5 


555 


6 6 


86 '6 '6G 6 6 6 6 8 6 6 6 


8 6 


6" ' 


7 7 


777777777777777 


7 7 


7 7 1 



8 8 8 a 8 8 3 8 8 8 B a 8 8 8 8 8 fi a 8 8 E 8 8 3> 8 8 8 8 8 8 a E a 8 6 a 8 a 8 8 8 a 8 8 » U a 8 8 8 8 8 8 6 8 8 8 6 8 8 8 8 

9 9 8 3 9 9 9 3 9 '9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 ' ' 9 9 9 9 9 9 9 9 9 8 S 9 9 '99 '9 9 9 '9 9 9 9 9 

7 I 9 10 11 12 13 M IS 16 n IB 19 20 2\ 22 23 24 25 26 27 2B 29 3(1 31 32 il U 35 36 37 33 39 40 il 42 43 4<i 45 46 <1 «S 5U Si £2 &3 S4 5b S6 £7 »9 60 bl S7 fi3 6< fi^ 66 67 68 69 10 7) 17 



OOQOOQOO 

■"1 74 75 76 77 78 79 80 

1 1 n 1 1 1 1 



3 3 3 3 3 3 3 3 

4 4 4 4 4 4 4 4 

55555555 
66B66666 
Till iin 
88888888 
99999999 

T3 71 T5 75 n 78 79 S.' 



PROGRAM CARDS AND DATA CARDS 
AREA OF A CIRCLE 



PAGE 1 
// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0002 0002 0000 

// FOR 

»IOCS<CARD»OISK»1132PRINTER»TYPEWRITER»KEYBOAPD) 
#LIST SOURCE PROGRAM 

C THIS IS A PROGRAM TO FIND THE AREA OF A CIRCLE WHEN THE RADIUS I. 
C ENTERED ON A CARD 
30 READ(2»1)RAD 

1 FORMATIF8.2) 
AREA^3.14*RAD»»2 
WRITE(3»2 )RAD»AREA 

2 FORMAT{2X»»RAD!US»«F8.2»5X» « AREA=*F8.2) 
GO TO 30 

50 CALL EXIT 
END 

UNREFERENCED STATEMENTS 
50 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 4 PROGRAM 72 

END OF COMPILATION 

// XEQ 

RADIUS* 2.00 AREA* 12.56 

RADIUS" 17.00 AREA= 907.46 

RADIUS' 105.00 AREA=34618.50 

RADIUSs 13.59 AREA" 579.92 



OUTPUT - THE AREA OF A CIRCLE 
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E. IF STATEMENT 



1. IF statements are used to cause the computer to branch to one of three possible statements, depending on 
the value of a FORTRAN expression- Thi.s is 'Known as a "decision. " 

2. The form of the IF statement is the word IF, followed by a pair of parentheses containing; a FORTRAN 
expression, followed by exactly 3 statement numbers separated i)y commas. 

IF (X-Y) 60,20,40' 

3. Execution — The expression within the parentheses is evaluated. If the value is negaMvc the next state- 
ment to be executed would be statement 60, if the value is zero, statement 20 will be executed next, and if 
the value is positive, statement 40 v\ ill be executed next. 

BASIC FLOWCHARTING SYMBOLS 



1. 



processing 



V 



output 



6. 



7. 



8. 



terminal (start or end) 



connector 



ii 



3, 



input 



9. 



flow direction 



t^N^ Nzl,2... 



offpage conneQtor 



4. 



5. 



subroutine 




decision 
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//. INTRODUC TIOi\ TO FLOWCHARTING 



1. A flowchart is defined as a graphic representation of a secjuence of instructions to aeeciniplish a gi\ en task. 

2. Used as a basic step prohleni solving, flowcharting becomes essential as the difficulty of the proi)leni 
presented increases, 

3. Flowcharting a i\'on-\iatheniatical Probleni 

a. Problem — Go to the 3rd floor of a l)uilding from the l()i)in , r.sing an elevator, 

1). Step b>' Ste[D Solution 

(1) Walk to elevator, 

(2 ) Is Car at \ our level? 

(3) If yes: 

(a) Kntercar. 

(!:>) Push button marked 3. 

(c) Wait for car to stop at 3, 
c. Fh)wchartecl Sohitioa 

(d ) Wait for door to open. 

(e) Leave elevator. 

(4) If no: 

(a) Press c/c^it'/z button. 

(!)') Wait One minute for car. 

(c) Go to step 2, 
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Enter 
Car 



Push 
Button 
Marked 3 



Leave 
Elevator 



^ Start ^ 



Walk to 
Elevator 



yes 




Press 

"Down" 

Button 



Wait One 
Minute for 
Car 



Wait 


For 


Door 


to 


Open 
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4. I'^lowcharting a Mathematical Problem 

a. Problem — 

( 1 ) Read the 3 coefficients of a quadratic equation from each card, 

(2) Determine the nature of the roots of each equation, 

(3) Print out an answer. 

b. Step by Step Solution 

(1) Read coefficients, 

(2) Compute the iminant, I) ~ - 4ac. 

(3) Is the discriminant, -,0,or -f ? 

(4) If negative, write, "Roots are complex". 

(5) Is this the last problem? 

(a) If yes, end program, 

(b) If no, read another card, 

(6) If positive, write, " Roots are real and unequal", 

(7) Go to step 5. 

(3) If zero, write, " Roots are real and equal", 
(9) Go to step 5. 

c. Flowchart ed Solution 
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d. eroding Form 



IBM 

i- ~ .NATm 

L_,: jOHA/ DOt 



THIS -l>1lo 
. 21 /? eA > 



Idisc 



; ii-f ( 



R V B 
lyi SCR 

£ (X. 

F.Oft/a,AJ 

CO T 
WRIT 



0 21 

\X Nl Q U 

0 21 

t -( 3., 



G.0 _ .T 



CALL 



F6 , l) 
* *2 - 4 

X > VA 



EQUAL 



G0„ TO 21 



EXIT 



f JiV D. 

c . 

. »*A* C 

>-C - 

r.6.- 



7 M> B 
/> ' A 

' } 



FX 



J ,23f. 



or 7 



r6, 1 , 



F6. 1 , 



Of 5 dF A.. (Qu ad ra 



TIC LQUATIOA 



2X, ' C 



2/ , ' C 



- V , F 61. 1 , 2X1, ' ROO 



T S AR 



,F6 



1 , 2Xi, ' ftOO 



1 ,2Xi, ftOO 



rs ARjt RtAU 



J L 



E REM 



21 



1 


fcl— 






CALL EXIT 






P — fn» 


3D TO 21 






IftNH EQUAL") 




l| 7 


' -nRilAT A=' » F6. 1» 2X, • b^* » F6. 1 » 2X» •^>' 


»F6.1)2X»'RanTS" ARE REAL j 


n 

o 


^ loTTC"/'^. ■ T5« P 






m TQ 21 

I 




r •-FOR li 






|V/ COMUCNTh 

U 1 


IRHD mEQUAL'.i 


1 




I^ORMAT <2X>." A=" , FS. 1 . 2K. ' B=* . F6. 1 . 2Xj * C=' 


,F6.1.£X. '.RnnTS- ^«E REAL 


r— . 


'j4RITE<:3»9)A»B»C 




r ■ 


j30 TO 21 




r ^ 






\ 5 


'FORMAT <2X. •A=V,.F6. 1.2X, •3=' »F6. 1.2X».'C=' 


» F6. 1 , 2X> 'J^OnTS" ARE COflPL 


<^ — 

4 


-JRITE<3»5>A.B,C 





r - - 

1 


IF<DI3CR>4»6,3 







pISW= B**2-4.*A*C 






pRf1AT<3F6. 1> 




- 2. ■ 

1 


?EAD<2» 1>A»B.C 
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Q PRQi3RAM WILL FIND THE MATURE OF THE ROOTS OF A QUADRATIC EQUATIa^ 
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PROGRAM CARDS - NATURE OF THE ROOTS OF A QUADRATIC EQUATION 
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FORTRAN STATEMENT 
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c. ^t'riiitotit 



PAGE I 
// JOB 

LOG DRIVE 
0000 



CART SPEC 
0002 



CART AVAIL 
0002 



PHY DRIVE 
0000 



// FOR 

# IOCS ( CARD »DISK»1132PR INTER •TYPEWR I TER»ICEYBOARD) 
#LIST SOURCE PROGRAM 

C THIS PROGRAM WILL FIND THE NATURE OF THE ROOTS OF A QUADRATIC EQUATION 
21 READ(2»1 )A.B.C 
1 F0RMAT(3F6.1 ) 

DISCR= B*»2-4.»A»C 
IF(0ISCR)4»6»8 

4 WRITE(3»5)A»B»C 

5 FORMAT (2X.«A«« ,F6«le2X» 'Bs* »F6.1»2X.«C=» »F6.1»2X» »ROOTS ARE COMPL 
1EX« ) 

GO TO 21 

8 WRITE{3»9)A»B»C 

9 FORMAT (2X»»A=« .F6«1»2X»«B=* »F6.1*2X.»C=*»F6«1.2X»«R00TS ARE REAL 
lAND UNEQUAL' ) 

GO TO 21 

6 WRITE(3,7)A»B«C 

7 FORMAT (2X»«A=« »F6.1»2X»»B=« »F6.1»2X»«C=' ♦F6«l»2X»'ROOTS ARE REAL 
lAND EQUAL • ) 

GO TO 21 
15 CALL EXIT 
END 

UNREFERENCED STATEMENTS 
15 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 

END OF COMPILATION 
// XEQ 



10 PROGRAM 
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ROOTS 
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ROOTS 
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ROOTS 


As 
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ROOTS 
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B» 


-12.0 


C = 


-9.0 


ROOTS 


A = 
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B = 


3.0 


C« 


-4.0 


ROOTS 



ARE 
ARE 
ARE 
ARE 
ARE 
ARE 
ARE 



COMPLEX 
REAL AND 
REAL ANID 
REAL AND 
COMPLEX 
COMPLEX 
REAL AND 



EQUAL 

UNEQUAL 

EQUAL 

UNEQUAL 



UNEQUAL 



OUTPUT - NATURE OF ROOTS OF A QUADRATIC EQUATION 
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FORTRAN LANGUAGE 
Unit III 



A. COUNTERS 

1. Counters are used lo cause a program or a part of a program to repeat itself a dcsij^natcd numl)er of times, 
or to produce an output which records the ruimber of items w hich have been processed. 

2. Several statements are required to construct a counter. 

a. The vahie of an integer is initialized at the beginning of a program. 
N = l 

h. After the FORTRAN statements which solve the problem have been completed, the counter is in- 
creased by 
N=N-j-l 

c. The current value of N is tested against its limit; if it reaches its limit, the program progresses to a new 
set of procedures. 

IF(N-100)5,5,10 

B. A PROBLEM WITH A COUNTER 

1. Problem: Find thesum of the odd integers from 1 to 99. 

2. Solutit n: 

a. Decide on variable names. 

(1) ISUM - sum of the integers 

(2) WUM - numbers to be added 

b. Flowchart tlie problem. 



ISUM 


= 0 


NUM 


= 1 



start ^ 




Nu^^ = 

NUM t 2 
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5. I ^»UM^ ISUM*/VUKV ] 
./JUJA-NUWt 2: 
. JF tVUM- 9 9,)5. 5 ».10 

. 20. / 0RW>TC2Xi> ' THt; SUA^ lOF TH 
. ; .Chill tXlTi . ; i 

. .lNr> ; ; 

d. Punched C^ards 



P^FOR 

201 



r 



101 



CALL EXIT 



f ORMATCSX, ■ THE SLIM OF THE nDD INTEGERS FROil 1 TU 99 IS^nS> 



tJRITE<3»eO>r.>L(i1 



r 
r 



; THi 

1 

W COWM 



STATEMEhrr 
NUMBER 

Ifl 1 1 1 
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IFafJri-99>3».'3» 10 



!lSLt1=l:SLt;'1+iHUM 



HLIM=1 



PROGRAil UILL FIffD THE SUM OF THE 333 INTEGERS FRQfl 1 TiJ 99. 
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PUNCHED CARDS FOR THE SUM OF ODD INTEGERS 



c. Printout 



-1>At3re 1- • ■ 

// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0001 0001 0000 

// FOR 

»in<:S(r ARD«ni.<;K tT l ^PPRIMTFR.TVPFWRTTFP.krFVp nAPni _ _ _ 
♦ LIST SOURCE PROGRAM ~ 
C THIS PROGRAM WILL FIND THE SUM OF THE ODD INIECiEKS hKOM 1 10 99. 
- ■ ■ - - I SUM--0 - 
NUM=1 
5 iSUM-sISUM+NUM 
— Nim»NUM+-? 

■ IF(NUM-99)5i5»10 
in WRT TF<^.?.n> Tc;iJM 



20 FORMAT (2X» 'THE SUM OF THE ODD YnYEGERs" "FKUM "l ru"99 I S • . Jl sT 
CALL EXIT 
E-ND - 

FEATURES SUPPORTED 

-TOCS'' ~~ - -• - 

rORF RFQUIRFMFNTS FOR 



COMMON 0 VARIABLES U PROGRAM 9^* 

- EN{>-€>F- COMPI-LATiON - - • _ 

_/ / X E Q 

THE SUM OF THE ODD INTEGERS FROM 1 TO 99 IS 2500 



C. COLUMN HEADINGS 



1. Instead of identifving each term in a set of answers, it ma\- lie convenient to list answers under one set of 
col unin headings. 

2. Procedure 

a. The WRITE statennent, without a variable list is used. 

\VRITE(3,24) 

b. Thf? FORMAT statement used in combination with the WRITE contains the headings. (Jare must be 
taken to allow for spacing between headings so that columns will be neatly spaced and headings either 
centered above or right-adjusted. 

24 F0RMAT(2X,'RADIUS\5X;AREA') 

D. DO STATEMENTS 

1. The DO statement is a single statement which combines the 2 operations which control a loop, the counter 
and the IF. 

2. The statement consists of the word DO, a statement number, and an inde.x definition. 

DO 20 I = n,,n2.n.3 

. 3. The index definition consists of a non-subscripted integer variable, an equal sign, and 2 or 3 integer quanti- 
ties (constant or variable), separated by commas. The first integer is the lower limit of the loop, the second 
is the upper limit, and the third is an optional increment. If the increment is not specified, it is assumed to 
be 1. 
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4. Mxocutioi) 

a. The computer sets tlie index variable ecjual to the h)\ver limit. 

I). All statements up to and ineluding the statement number in the DO statement itself are executed . 

c. 'l*he index variable is increased by the increment, or In* 1. if no increment is specified. 

d. The current value of the index is checked against the upper limit. When the index reaches its greatest 
possible value without exceeding the upper limit, drop out of the loop. 

e. Flowchart of a DO loop. 



Steps 
of 
Program 







. ^• 




ii ' 




Perform 




Some 




Arithmetic 




Operation 



Initialize index variable 




Continue 
in the 
Program 



Inc r em en t ind ex 
variable 



Compare index 
variable with 
upper limit 



CONTINUE STATEMENT 

1. This statement provides the DO statement with a reference number in a loop which might otherwise end 
with a control statement, e.g. IF or GO TO. 

2. It consists of only the word CONTINUE. 

A PROBLEM USING A DO-LOOP 

L Problem — Find the squares, s^^uare-roots. cubes, and cube-roots of the integers from 1 to 100. 
2. Flowchart 
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c 



Start 



3. Coding Form 



Write / 
Colxann / 
Headingar 



N: 









REALNs 
N 



SQrREALN * 
REALN 



R0OT2s 
REALN **.5 





CUBErREALN 
**3 



R00T3; 
REALN **(l/3) 



V Write 
SQ, R00T2j 
CUBE / 
R00T3 / 



\ 




IBM 



KORTRftN Coding Forn 
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EWD. 



i 1. 



C.U Bt 
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T3 



CUB£- 



.*.C.U.,.R 
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4. Proj^rani (iards 



r 

r - 



r 

r 









CALL EXIT 




i:ONTIHIJE 




F0RMATC2X. I3.2X.F6. 0»2X»F6.2»2X»F6. 0»2X»F6.2> 




■■.!RITE<:?»?)H»?Q»RDDTE»CUBEj ROOTS 


?nDT3=REALr-!**'; 1 . ) 




^□□T2=REAU+«*.5 




CUBE=REALN*«3 — 

It tr M. 


Sa=REftLii*REALrH 




REALH=H 

■ 




DO 20 N=l»30 

;i ■ ' = — ' - 
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OR/IAKaX* • m* » 2X» ■ SQUARE- ; 2X» " Sia. RT. ' » £X» " iCUBE ' , 2X»'^CU. RT. " ) 



CQg^f IT 



STATEUEKT 
MUMBCR 



4RITEC3?1> 



ROOTS OF INTE»3EIRS FROM 1 TO 30. 



THIS PROGRAil WILL FIND THE SQUARES* SiiUARE ROOTS^ CUBEST AND CUBE 



DiD 0 0 0 0 

|12 3 4 5 
f|I 1 f f 
I 

2\2 7 2 2 



4I4 4 4 4 4 



SjS 5 5 5 

S16 6 6 6 
I 

7l7 1 1 1 
I 

818 

\ 

\ 



): V: H 11 u 



2:2: F20RTRA2KI mST A "m E MEZ^jfllsilsj 



♦ OEMTIFICATlOU 



OT 0 0 0 0 0 0 0 0 D S 0 1) 0 0 0 0 0 3 OOO O'OOQ'O O OOQQOOO 00 00 OQQOQQ QQO 

7 B 910JH2 J3 H 15 16 17 tn9 20 21 22 23 24 25 2b:: 28 29 30 31 32 33 34 3538 3n8 39 40 41 42 43 44 4546 47 48 49 50 5J 52 53 MSSWn 58 59 50 61 52 63M65MnM 

WW I f f f u f 1 n f I n n " 1 1 It M 1 1 " 11 1 1 1 1 1 1 1 1 1 1 n 1 1 1 1 in 1 1 n 

222 22222222222222222222222 mil 27 '22 222 222 22 ' 2 2 2 2 ^^2 "2 22 2 22 2 2^2 2 
3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 * 3 3 '^i 3 3 3 3 ' 3 3 n ' 3 3 3 3 
44444444444 444444444 :.4444444'44444444"444444444444'44444 iM"45''M4 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 ' 5 5 5 5 5 5 5 5 5 5 ' 5 5 5 5 5 5 5 5 ' 5 5 5 5 5 5 5 5 5 fj 5 ' 5 5 5 5 ' 5 5 5 5 5 " 5 
66 6G666 6 6G66 66 6 6 C 6 5 6 S 6 6 6 6 6 6 6 S 6 6 6 6 6 6 6 6 6 6 6 6 ** 6 6 6 6 6 6 6 B 6 6 6 6 6 6 6 6 6 6 6 6 

7 7 7?) 77 11111 11 11 1111 1111 11 1111 111 '^I'^'i^rti 111 inw)iiwwi WW WM 

8 M 8 8 8 8 B 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 »s 8 8 8 8 8 »' 8 8 8 8 8 8 £ i P e & 8 i 8 8 £ 8 ;? S 8 8 8 8 8 8 8 8 8 
9I9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 8 9 9 9 9 9 9 9 S 0 5 d 9 5 ■ ^ i ■ S : 9 S - . S 9 9 9 9 9 9 9 9 9 

I|2 3 * 5 6 7 8 i 10 n 12 13 lA t5 16 n 18 19 20 2122^ 24 25 25 27 28 29 3^ 31 32 33 34 35 38 37 33 39 40 1M2 4J 44 45 47 48 49 53 vl ii o3 M 5i iS 57 ?i 3S M b1 S7 63 W 65 5E 67 M 59 10 n 12 



QQO OOQQQ 

"•1 74 75 75 77 7« 79 M 
.1111111 

22222222 
3 3 3 3 3 3 3 3 
44444444 
3 5 b 5 5 5 5 5 
66666666 
7 7 7 7 7 7 17 



99999999 

I? 74 T5 76 n 71 79 8, 



ERIC 



A PROBLEM USING A DO-LOOP 
SQUARES, SQUARE ROOTS, CUBES, CUBE ROOTS 
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5. Printout 



PAGE 1 
// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0002 0002 0000 

// FOR 

• IOCS ( CARD»D ISK .1132PR INTER tTYPEWR I TER .KEYBOARD) 
•>.LlST SOURCE PROGRAM 

C THIS PROGRAM WILL FIND THE SQUARES* SQUARE ROOTS* CUBES* AND CUBE 

C ROOTS OF INTEGERS FROM 1 TO 30. 

WRITE(3»1 ) 

1 F0RMAT(2X,'N0' ,2X*'SQUARE« *2X*'SQ.RT.' *2X. ' CUBE ' * 2 X * ' CU . R T . ' ) 
DO 20 N=l*30 
REALN=N 

SQ=REALN*REALN 

CUBF=REALN**3 

R00T2=REALN**. 5 

R00T3=REALN**( 1./3. ) 

WR I TE( 3.*2 )N*SQ.R00T2 *CURE»R00T3 

'2 FORMAT(2X.I3»2X*F6.0*2X*F6.2*2X*F6.0*2X*F6.2) 

20 CONTINUE 
CALL EXIT 
END 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 14 PROGRAM 142 

END OF COMPILATION 

// XEQ 



NO 


SQUARE 


SQ.RT 




CUBE 


CU.RT. 


1 


1. 


1. 


00 


1. 


1.00 
1.25 


2 


4. 


1. 


41 


8. 


3 


9. 


1. 


73 


27. 


1.4^* 

1.58 


4 


16. 


1. 


99* 


64. 


5 


25. 


2. 


23 


125. 
216. 


1.70 


6 


36. 


2 . 


44 


1.81 


7 


49. 


2. 


64 


343. 


1»91 


8 


64. 


2. 


82 


512. 


1.9^ 


9 


81. 


2. 


99 


729. 


2.08 


10 


100. 


3. 


16 


1000. 


2.15 


11 


121. 


3. 


31 


1331. 


2.22 


12 


144. 


3. 


46 


1728. 


2.28 


13 


169. 


3. 


60 


2197. 


2.35 


14 


196. 


3. 


74 


2744. 


2.41 


15 


225. 


3« 


67 


3375. 


2.46 


16 


256. 


3. 


99 


4096. 


2.51 


17 


289. 


4. 


12 


4913. 


2.57 


Ifl 


324. 


4. 


24 


5832. 


2.62 


19 


361;. 


4. 


35 


6859. 


2.66 


20 


400. 


4. 


47 


8000. 


2.71 
2.75 


21 


441. 


4. 


58 


9261. 
10648. 


22 


484. 


4. 


69 


2.80 


23 


529. 


4. 


79 


12167. 
13824. 


2.84 


24 


5 76. 


4. 


89 


2.88 
2.92 


25 


62 5. 


4. 


99 


15625. 


26 


676. 


5. 


09 


17576. 
196H3. 


2.96 


27 


729. 


5. 


19 


2.99 
3.03 


28 


7 84. 


5. 


29 


21952. 


29 


841* 


58 


38 


24389. 


3.07 


30 


900. 


5. 


47 


27000. 


3.10 



"The square root of 4 is not 1.99. Errors of this type are due to use of real number arithmetic. In the print oper- 
ation there is no rounding off. All extra decimals are simply dropped (truncated). Adding .005 to each quanti- 
ty before printing would perfornn the appropriate round-off. 
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G. SUBSCRIPTED VARIABLES 



J. Subscripts are ii.sed to identif)* ouv vnluc of a list of values, having the same name. In FORTRAN, a list is 
known as an array. 

2. Subscrip'.s are integral constants or varial)les greater than zero. They are written in parentheses immedi- 
ately after the variable name. 

' AGE(4X DATE(N) 

3. Restiictions — when expressions are used only those listed are permissable 

a. Variable plus or minus a constant. 

AGE(N+4) 

b. Constant multiplied by a variable. 

DATE(2''N) 

c. (Constant multiplied by a variable plus or minus a constant. 

GRADE(2°N+I) 

//. DIMENSION STATEMENT 

1. DIMENSION statements are used to reserve storage space for an array of values. Any program which con- 
tains subscripts must also have a DIMENSION statement. 

2. The word DIMENSION is followed by a list of variables of any mode separated b\' commas. Each variable 
is followed by a pair of parentheses which contains a number. The number designates the size of the array. 

DIMENSION AGE(10),DATE(10),NCODE(10) 

3. The statement must be before any e.xe- : . \ j statements of the program. 

/. PROBLEM USING SUBSCRIPTS 

1. Problem — Read a list of 50 numbers, punched one to a card, and print the list and" the sum of these 
numbers. 



2. Flowchart start ^ 



SUMrO 




I»50 



yes ^ \ Write 
*\ SUM 



lal 







Read 




A(I) 





^ End ^ 



smz 

SUM*A(I) 



Write 
A(I) 
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3, Coding Form 



IBM 



rORTilAN Coding forra 

























I 


[ 













FORTRAN SlAltMEtsf 



D O .5] .1=1 



fee - LE 



SUM 

WRX.T 



1-5 



READ. - 
fi ^ TH 



A (so 



AW T H 



5 0--.^ 



F O.RK\AT ( F «) 



C ON.T 
lyjs I T 

rc,n-Vi,AT.(ix 

END 



:)a(x) 



THEX/tl %Ut<\ 



.2) 



V.A.I-ut - C-F.-- 
C.OAVPUTt 



D. 



4. Printout 



// FOR 

* IOCS (CARDED I SK f 11 32PR INTFR ) 

* LIST SOUPCF PROGRAM 

C THIS PROGRAiM WILL READ A LIST OF 50 NUMBERS* PUNCHED ONE TO A CARD. 

C NUMRERS MUST RE LESS THAN THE ABSOLUTE VALUE OF 1000 TO THE NEAREST HUNDREDTH. 

C THE NU^^RERS ARF PRINTED AND THEIR SUM IS COMPUTED. 

DIMENSION A(50) 

SUMxO. 

DO 3 1 = 1 »50 

READ(?fl) All) 
1 FORMAT(F7.2) 

SUMnSCiM + A ( I ) 

WRITF(3»2)A( I ) 
? FORMAT(F9.2) 
5 CONTINUE 

WRlTE(3t3)SUM 
3 F0R^^AT(2X> •SUM=» >F9.?) 

CALL EXIT 

END 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 106 PROGRAM 96 

END OF COMPILATION 

// XEQ 



ERLC 
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3« .no 
39.00 
4R.00 

?o.on 

7.00 
-R .00 
17.00 
.00 
24.00 
25.00 
26.00 
27.00 
21.00 
-22.0'^ 
23.00 
30.00 
31.00 
32.00 
-33.00 
34.00 
■35.00 
15.00 
16.00 
19.00 
44.00 
45.00 
43. on 
13.00 
40,00 

3.00 

4.00 

1.00 

5.00 

6.00 

9.00 
14.00 
2B.0O 
10.00 
41.00 
42.00 
11.00 
12.00 
46.00 
47.00 
36.00 
37.00 
29.00 

2.00 
49,00 
50.00 
SUM= 1149.00 



o 

ERIC 
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FORTRAN LANGUAGE 
Unit IV 



A. LIBRARY FUNCTIONS 

1. The manufacturer provides a package of programs to solve some of the most often used mathematical 
functi{)ns, such as roots, logarithms, and trigonometric functions. These are called "library functions." 

2. A name is assigned by the manufacturer to each library function. SQRT is the name for the function which 
computes the square-root, 

3. The quantity which the computer needs to compute the desired result is called the argument, 
a. All librar\' functions have one or more arguments. 

h. Arguments may be: 

(1) Variables 

(2) v^onsti»nts 

(3) Legal arit (imetic expressions, even those containing parentheses and other innct'ums^ 

4. The function st iternent consists of the name of the function followed by a pair of parentheses containing 
the argument or arguments. 

5. The computer stops executing the main program while it computes the function. When the result is found 
the computer returns to the main program with this result, and continues the secjuential execution of pro- 
gram steps. 

6. Standard library for the IBM 1130. (see chart) 



LIBRARY FUNCTIONS - IBM 1130 



.^unction 
Name 


Cocsnents 


Mode 
Function 


Mode 
of 

Argument 


Example 


SIN (A) 


argument in radians 


real 


real 


Y r SIN(A) 


COS (A) 


argument in radians 


real 


real 


Y = A 4' COS(Z) 


TANK (A) 
hyperbolic tangent 


argument In radians 


real 


real 


C a TANH(A*Z) 


AXAN(A) 
angle whose tangent is 
A; tan-^(A) 




real 


real 


ANGA m ATAN(TANA) 


SQRT (A) 


argua)ent>0 


real 


real 


HYPOT = SQRT(A**2 ♦ B**2) 


EXP (A) 
exponen t ia 1 - e*^ 




real 


real 


POWER - EXP(Y) 


ALOG(A) 
natural logarithm log^A 


argijment>0 


real 


real 


Q 5 SIN(P) - A'ijOG(5.(«) 


ABS(A) 
absolute value 




real 


real 


AROOT = SQRT(ABS(DISCR)) 


lABS(I) 




integer 


integer 


IPOS z UBS (I) 


FLOAT (I) 




real 


Integer 


REAL z FIjOAT(INUM) 


^?^IFIX(A) 




Integer 


real 


INT = IFIX(REAL) ' 



B. A PROBLEM USING LIBRARY FUNCTIONS 

1. Problem 

Read the 4 coordinates of points A and B from a card. Find the distance between A & B, the slope of line 

AB, the angle that line AB makes with the X-axis, expressed in degrees. 

Print in column form» properly labeled, the given information, and the required solutions. 

2. Flowchart 



^ Start ^ 

\ Write / 
\ Column / 
\ Headings 



i 



Read 


Coord. 


of 


A&B 




0 
1 



ANGLE r 
tan" ^ (slope) 



^ffrite Coord 
of A&B 

DIST 
SLOPE 




ERIC 
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3. Coding Form 



IBM 



"1: 



rOfiTRAfi CoJmu Farm 

1; 

























,„.- 



liml MAKES 
COO RiT>I A/ATtV I 



CPE., of THt 



.10 
3 



FO.RA>AT fa 



W.R_1T€. C 3 , 
f_ORMAT .(4X,.U 



RE.AT) 
f 0 RMAT 



CAUL 

tA/.T> 



CO.MP.U 



(4 



2) 



I X S T. 



X - A!X I 
THAA/ iOO 



r6 . a) 



AA/Gi £:-AA//?AOM.ao../3 



GO t|o. 1 o 



F6 . 2, 



BY . 



6 . ^ >^ 



LX P.RtkstTi 



14 

^V, DiST, SLO?L, A|WCL 



6X, ' Y 



> 



2., IX 



6 X. 



f 6 . a 



A B ^ OjL U T t 



5/. 5 F 6 



2., 3X 



v>.m£ o 



ARL_.^ 

T_Hf 

F T.\\.£- 



4 ..Z) 



4. Printout 

PAGE 1 
// JOB 

LOG DRIVE 
0000 



CART SPEC 
0002 



CART AVAIL 
0002 



phy drive 

0000 



// KOR 

»I0CS(CARD»DlSKfll32PRlNTERfTYPEWRITERfKEYB0ARD) 
*LIST SOURCE PROGRAM 

C THIS PROBLEM COMPUTES THE DISTANCE BETWEEN 2 POINTS WHOSE COORDINATES ARE 
C KNOWNf THE SLOPE OF THE LINE THROUGH THESE POINTS* AND THE ANGLE THAT THE 
C LINE MAKES WITH THE X-AXIS, EXPRESSED IN DEGREES. THE ABSOLUTE VALUE OF THE 
C COORDINATES IS LESS THAN 100. 
WRITE Ofl) 
X FORMAT {8Xf »A' tl5Xf »B» ) 

2 FORWAT^?ixl»X« t6X,«Y»»8Xt*X»«6X,«Y« tbXi* LENGTH* iSX,* SLOPE* »4X»«ANG 
ILE' ) 

10 READ (2 13 ) AXiAYtRXfBY 

3 FORMAT (4F6.2) 

DIST^SQRTt {AX-BX)»*2+(AY-BY)**2) 
SLOPE = { BY-AY ) / ( BX-AX ) 
ANRAO=ATAN (SLOPE ) 
ANGLE«=ANRAD*180« /3ol4 

WRITE{3f4)AXtAYiBXfBY»DlSTtSLgPE»ANGLE ^ 

4 FORMAT{2X»F6,2 f lXf'="6«2 t3XfF6«2 tlXf F6«2i3Xf F6»2f3XtF6«2t3X»F6«2) 

GO TO 10 
999 CALL EXIT 
END 

UNREf'ERENCED STATEMENTS 
999 

FEATU.'RES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 20 PROGRAM 176 

END OF COMPILATION 

// XGO 



ERIC 



X 

-3»00 

0*00 



Y 

-4«00 
0.00 



X 

3.00 
-5.00 



Y 

4.00 
7.00 



LENGTH 
10.00 
8.60 
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SLOPE ANGLE 
1.33 53.15 
-1.40 -54.48 



ARITHMETIC STATEMENT FUNCTIONS 



1. When no librarx function is available and the same process will be used several times within a program, an 
arithmetic statement function may be used. 

2. The statement consists of: the function name, selected })> the programmer, with its arguments, followed 
by an ecjual sign, and followed by the FORTRAN arithmetic expression, which defines the desired func- 
tional relationship. 

ANDEG(RAD)= RADM80./3. 1416 

3. This t> pe of statement must be placed before all executable steps of the program. 

4. In the main program write the name of the function and its arguments in any valid arithmetic expression. 
The quantities used as arguments in the program will be used to compute the value of the functi^m as pre- 
scribed b\ the function defining statement. 

5. Restrictions 

a. Oulv functir)nal relationships that can be computed in a single expression can be used. 

b. The expression on the right may contain unsubscripted variables, constai\ts> or other functions. 

c. The function name contains 1 to 5 alphameric characters, the first a letter significant to the mode of 



1. Problem: Write a program to find the number of degrees in an angle if either the sine or the cosine of the 
angle is knou n. Print out the given information and the number of degrees in the angle. 



the expression. 



A PROBLEM USING ARITHMETIC STATEMENT FUNCTIONS 



2. Flowchart 
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3. (Coding Forms 



IBM 



FDHTOAN C(n»i:i5 Taiir. 




FORTRAN Coding Form 




erJc 
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4. Pririt^out 

PAGE 1 
// JOR 

LOG DRIVE CART SPEC CART AVAIL PHV DRIVE 

0000 0002 0002 0000 

// FOR 

* IOCS (CARDED I SK»1132PR I NTFR » TYPEWRITER » KEYBOARD) 
*LIST SOURCE PROGRAM 

C THIS PROGRAM WILL FIND THE .NUMBER OF DEGREES IN Ai\ ANGLE a'HOSE SINE OR COSINE 
C IS KNOWN* PUNCH A 1 IN COLUMN 2 IF THE SINE IS KNOWN* AND A 2 IF YOU KNOW THE 
C COSINE. 

DFG( RAD ) = RAD*180../3« 1^159 
100 READ(2f2)NCODE»VAL 
? FOR'VATC I2fF8«5) 
IF ( NCODE -1 ) 5 ^6 »7 

5 WRITF(3>8 ) 

8 FORMAT ( 2X» < NO SUCH CODE') 
GO TO 100 

6 CSIN =SQRT(1,-VAL^^2) 
TAN=VAL/CS IN 
RAD=ATAN ( TAN ) 
ANG=nEG(RAD) 

WR I TF { 3 ^9 ) VAL » ANG 

9 F0R'ViAT(2Xf • IF SIN A= % F B • 5 » 1 X t ' » THEN ANGLE A= F8 • 2 » 1 X >' DEGREES ' ) 
GO TO 100 

7 IF{NCODE-2)6»10»5 

10 SINE=S0RT ( 1-VAL^*2 ) 
TAN=S INE/VAL 
RAD--ATAN ( TAN 1 
ANG=DFG(RAD) 
WRITFOfll )VAL>ANG 

11 F0RMAT(2Xf • IF COS A= t , f 8 . 5 , 1 X , • ♦ THEN ANGLE A= •» F8 • 2 » 1 X DEGREES • ) 
GO TO 100 

^99 CALL EXIT 
FND 

UNREFERENCEO STATEMENTS 
999 

FEATURES SUPPORTED 
IOCS 

CORF REQUIREMENTS FOR 
COMMo,'^; 0 VARIABLES 18 ^-ROGRAM 228 

END OF COMPILATION 

// XEQ 

IF SIN A= 0.50000 » THEN ANGLE A= 30.00 DEGREES 
IF Cos A= 0.86602 » THEN ANGLE A= 30.00 DEGREES 
NO SUCH CODE 

IF COS A= 0.86162 ♦ THEN 'ANGLE A= 30. 50 DEGREES 
NO SUCH CODE 

IF SIN A= 0.93358 » THEN ANGLE A= 68.99 DEGREES 



E, COMPUTED GO TO 

1. The statement consists of the words GO TO followed by an open parenthesis containing any required 
number of statement numbers separated by commas, a closed parenthesis, a comma, and a non-subscript- 
ed integer variable. 

GOTO(10,8,7),K 

2. If the integer variable has a value of 1, the next statement to be executed is the 1st statement in the paren- 
thesized list, if the variable is 2, 'he 2nd statement is executed, and so on. The value of the integer is de- 
fined or computed in another part of the program and acts as a subscript to the list. The length of the list 

er|c 



and the repeated appt^arance (^f the numbers of the hst are not restricted, hut tlie control \ariahle nui\ not 
be larj^er than the numhv^r oFiitatements in the list. 



3. Whenever it is posible to select one oi' several parts of a proi2;rani dependent on the \ alue of a control vari- 
able, a voinpuicd GO TO may be used, 

PROBLEM USING A COMPUTED GO TO 

1. Problem — Write a program to compute any niissiniii; term of a proportion if three others arc known. The 
known terms are to be entered on the typewriter after the (operator t\ pes in the number of the proportional 
that is unknown. 



2. Flowchart 



Start ^ 



Write 
\dir actions y 



Ask 
for 
2nd 



Read 
2nd 



Head 
N 





Ask 
for 
1st 



Read 
1st 



Ask 
for 
3rd 



1 




\ 

Read 
3rd 








Ask 
for 
3rd 







Read 
3rd 






Ask 
for 
2nd 







\ 

Read 
2nd 












Read 
4th 


\ 



6 



Ask 
for 
2nd 



4 - 

P.ead 
2nd 


\ 







for 
3rd 







Read 
3rd 
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1st = 

5c X third 
fourth 



Write 
yiast probl 
\enter 999 
\otharwlsej 





2nd 5 
first X fouTtt 



third 



i 



3rd = 
first X fourth 



second 




Write 
given 
proportion 



Write 
given 
proper tioE 



Write 
2nd 



Write 
3rd 



Write 
given 
proportio/ 



Write 
4 th 



r 




3. Printout 



PAGE 1 
// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0002 0002 0000 

// FOR 

» I CCS ( CARD tD I SK • 1 132PR I NTER t TYPEWRITER t KEYBOARD) 
♦LIST SOURCE PROGRAM 
100 WRlTE(ltl) 

1 FQRMATi?X» "THIS PROGgAM IS DESIGNED TO FIND THE UNKNOWN TERM OF A 
IPROPORTION Wh£n THREE TERMS ARE KNOWN* 



WRlTEn#2) 

2 F0RMAT(2Xt • IF YOUR PROPORTION 
1ST IS TO SECOND « THIRD IS TO 
2HE MISSING TERM* »//) 

READ{6*3)N 

3 FORMAT ( ID 

GO TO (10»20»30»40l »N 
10 WRITE(1»4) 

4 F0RMAT(2X»»ENTER 
READ(6f5 )SEC 

5 F0RMAT(F8«2) 
WRiTEd »6) 

6 F0RMAT(2X» 'ENTER 
READ(6»5)THIRD 



WERE WRITTEN IN THE FORM ♦ » / / » 2X • ' F I R 
FOURTH* •//,2X»«ENTER THE NUMBER OF T 



THE 2ND TERM IN THE FORM XXXX.XXM 



THE 3RD TERM IN THE FORM XXXX.XXM 



WRITE(1»7) 

\t(2X. « 

READ(6f 5)F0RTH 



7 F0RMAtT2X. 'ENTER THE 4TH TERM IN THE FORM XXXX.XX*) 



Jj^Xpj^S^TO* ♦F8.2» ♦F8.2» • IS TO«F8»2) 



25 F0RMAT(2Xi ' - - 

WRlTE(i»8l.,-. 

8 F0RMAT(2X»'THE* »I3»1X»*PR0P0RTI0NAL IS*»F9«2J 
GO TO 200 

20 WRITE(1»9) 

9 F0RMAT(2X««ENTER THE 1ST TERM IN THE FORM XXXX,XX») 
READ(6»5)FIRST 

WRITE(1«6) 

READ(6»5)THIRD 

WRiTEdt?) 
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READ(6»5)FORTH 

SEC«FIRST»FORTH/THIRO 

WRITE( 1.26>FIRST»THIRD»F0RTH 

26 FORMAT(2X»F8.2»MS TO X «»»F8«2»*IS TO*»F8«2) 
WRITE( 1»8 >N»SEC 

GO TO 200 
30 WRITE( 1»9) 

READ(6>5)FIRST 

WRITE(1»4) 

READ(6.5)3EC 

THIRD»FIRST»FORTH/SEC 
WR1TE( 1.27) FIRST :»SEC»FORTH 

27 FORMAT(2X»F8.2»» IS TO •»F8«2»» • X IS TO»»F8«2) 
WRITE( 1»8)N»THIRD 

GO TO 200 
40 WRITE( 1»9) 

REA0(6»5)F1RST 

WRITE( 1»4) 

READ(6«5)SEC 

WRITE( 1»&) 

READ(6f STthIRD 

F0RTH=3EC»THIR0/FIRST 

WRITE( 1»28 )FIRST»StC»THlRD 

28 FORMAT(2X»F8.2» • IS TO •♦FP.2»» ••F8.2»MS TO XM 
WRITER lt8)NfF0RTH 

IF THIS IS YOUR LAST PROBLEM ENTER 999» IF NOT ENTER 0» 

1) 

READ(6tl2 )LAST 
12 FORMAT ( 13) 

IF (LAST-999UOO»300*100 
300 CALL EXIT 
END 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 12 PROGRAM 616 

END OF COMPILATION 

// XEO 



THIS PROHRAn IS OrSinMF.n TO FIMO TMF UMKMOl/n TFRfl OF ^ PROPORTION' \;Mr^r jnocc JFRMS ARP ".hqI/N 
IF YOi;r. PROPORTIOM l/FRP I/PITTFN IN Ti'F FORf* 

FIRST :s TO SFCOMD = THinp LS TO POIIPTH 

FMTFR THE NUMRFR OF TMF ^llSSI^n TFRM 

. 1 

FNTFR T»!.: TFRn IN TMF FORfi XXXX»XX 

25. 

FNTFR THE 5RD TFRf! IN THF FORM XXXX.XX 
100. 

EflTFR THF UTII TERM |n THE FORf^ XXXX.XX 
12 5 . 

X 'is to 25 .00= lOO.OOIS TO 125.00 
THE 1 PROPORTIOMAL IS 20.00 

IF THIS IS YOUR LAST PROBLEfl FMTFR 990, IF NOT ^VTER 0 — - 

U 

THIS PROGRAM IS PRSinfJEn TO EiriO TH^ lir'KMOWf! TERfl OF A PROPORTION' l.'MEN TMREE TFRflS ARE KflOl/M- 
IE YOUR PROPORTION WERE V.'RITTEM |N THE FOPr 

FIRST IS TO SECOND = TfllRD IS TO FOURTH 

FHTER THE NUMBER OF THE fllSSJNP TFRI) 

U 

ENTER THE 1ST TERf'i |N THE FORM XXXX.XX 
25. 

ENTER THE 2Nn TERM |m T!IE FORM XXXX.XX 
100. 

ENTER THE 3Rn TERI< |M TMF POP^ XXXX.XX 
125. 

25.00 IS TO ion. 00 = 125.nn!S TO X 
THE U PPOPOP.TIONAL IS 500. 00 

IF THIS IS YOlID LAST PRORL'^M pnt^R qqo, IF ^'OT ^''Tpd 0 
O 999 
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FORTRAN LANGUAGE 
UNITY 

A. READ STATEMENT 

1. In order to have the computer receive information from an input device a READ statement must he used. 
It tells the computer what to read. 

2. The statement consists of the word READ, followed by a pair of parentheses containing 2 numerical codes 
separated by a comma, and a list of the variables separated 1)\ commas. 

READ (n,,n2) A,B,I,C(J) 
a. Input Codes 

Logical Unit Code (tii ) Device 



2 Card Reader 

4 Paper Tape Reader 

6 KcN'hoard 
An integer variable, defined previously in the program may be used instead of the numerical code. 
1). Variables in Input List 

( 1 ) The Ic^ngth of the list is not restricted. 

(2) The variables may be of an\' mode, and modes may be mixed in the s;ime list. 

(3) Variables may or may not be subscripted as reciuired by the specific program . 

(4) An integer read early in the list may be used as a subscript later in the list. 

READ(2,1)I,A(I) 

However, subscripts do not necessarily have to be defined in this manner. Alternate methods are: 

(a) The subscript may be defined by index of a loop. 

DO 101 = 1,10 
READ(2,20)A(U 
10 CONTINUE 

(b) The subscript may be read in by a separate READ statement. 

READ (4,1 )N 
DO 25 1 = 1, N 
READ(2,20)A(I) 
25 CONTINUE 



3. Self-indexed READ 

a. This type of statement is used to read arrays. 

b. The variables and their variable subscripts must be followed by a comma and an index definition like 
that of a DO loop. 

READ (6,1) {A(I),I = 1,25) 

c. The variable and index definition must be enclosed in parentheses. 

d. As is the case of the DO loop, the limits of the index may be variables or constants. 

e. The list of elements may contain other elements besides those that are self-indexed, either before or 
after the self-indexed element. 

READ (2,1)1,J,K,(A(IU=J,K),SUM,BIGA 

f. The input list may contain more than one self-indexed element. 

READ (4,1 )(A(I),I = 1,10),(B0),J = 1,20) 

g. More than one subscripted variable may use the same index definition. 

READ (6,1)(A(I),B(1),I= 1,20) 

h. The disadvantages of the DO loop control of reading data as compared to the self-indexing method 
are: 

( 1 ) The DO loop must execute the READ as many times as the upper limit of the loop. 

o 
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(2) Under control of a DO loop, each tinne the READ is executed a new card must be read by the 
connputer, thereby wasting cards. 



EXERCISES 

1. Write a READ statement to read 2 variables named COST, SELPR from cards. 

ANSWER: READ (2,1 )COST,SELPR 

2. Write a self-indexed READ statement to read 20 values of A,B,C from 20 cards, each punched with A, B.C. 

ANSWER: READ(2,1) (A(1),B(I),C(I),I = 1,20) 

3. Write a READ statement to read in an integer variabL called N and N variables called COST(I) from 
cards . 

A N S W ER : R E A D(2 J )N . ( CO ST( I ), I = 1 , N ) 

4. Write a READ statement that will use the keyboard or card reader to define 3 variables called X,Y and Z, 
depending on the value of a variable called KRC. 

ANSWER: REaD(KRC,1 )X.Y,Z 

5. Write a READ statement to read 100 pairs of X and Y coordinates of points from cards. 

ANSWER: READ(2,1)(X(I),Y(I),I = 1,100) 

6. VVrite a READ statement to read 100 values of A, then 100 values of B from cards, 

ANSWER: READ (2,1) (A(I ),I = 1,100), (B(I),I=: 1,100) 

7. Indicate whether or not the following READ statements are valid, and if they are invalid write them 
correctly. 

a. READ (2,1) COST 

b. READ (-2,1) SELPR 

c. N=6 

READ (N,l) COST 

d. READ (2,1) NUMBR,COST,iVlRKUP,SELPR,TAX 

e. READ (2,1) (COST(I), 1 = 1,20^ 

f. READ(2,1)J,COST(I),I = 1,20 

g. READ (2, 1 )COST(2'* I + 1 ),SELPR(J ) 

h. READ (2,1) N,A(N) 

i. READ(2,1)N,(A(I),I = 1,N) 

j. READ(2,1) L,M,(A(I)I = L,M) 

k. READ (2,1) A,B,(C(I),I = 1,B),K2R,STP 

1. READ(A(I), B(I),C(I),I=I,IO) 

ANSWERS 

a. Valid . 

b. READ (2,1) SELPR 

c. Valid 

d. Valid 

e. Valid 

f. READ(2,1)J, (COST(I),I = 1,20) 

g. Valid . 

h. Valid - 

i. Valid 

j. READ (2,1) L,M,(A(I),Ir^L,M) 

k. READ (2,1) A,rB,(C(r), 1 = 1,IB),K2R,STP 

1. READ (2,1) (A(I),B(I),C(I), 1 = 1,10) 



46 



t 



B. FORMAT STATEMENTS 

1. A statement that provides Informaiion to the input or output statements about where numbers are to be 
found is a FORMAT statement. It is not executed and because of this fuel does not necessarily have to be 
placed in seciuential order. Ordinarily they are placed adjacent to the READ or WRITE statements or all 
together at the beginning of the program. 

2. Every FORMAT statement must have a statement number. 

3. The statement consists of the statement number, the word FORMAT, followed by a pair of parentheses 
containing FORMAT codes. 

a. FORMAT Conversion Codes 

(1) The FORMAT codes tell the field width of the number, the number of decimal places, if any, 
and its mode. 

(2) FORMAT codes combine both alphabetic and numeric characters. 

(F8.2) . 

(a) Alphabetic 

F - Real numbers, decimal notation 
I - integers 

E - Real numbers, exponential notation 
X - Blanks 

H - Hollerith characters 

A - Alphameric characters ♦ 

(b) Numeric 

1st integer - the number of spaces (card columns, print spaces) 

used to contain the number (field-wiath). When punched or typed 
the number must be light adjusted in the field. (See Data Card 
examples on pages 8 and 9. ) 

2nd integer - the number of decimal places. (The computer will 

ignore this code if a decimal is punched in any position in the input.) 

b. READ Codes 

(1) REAL numbers with ordinary decimal notation recjuire F conversion code, field width specifica- 
tion, and decimal specification. 

(F8.2) 

(2) Real numbers may be coded in P] notation to reduce the amount of keypunching when very large 
or very small ninnbers are needed la program. 

(a) A great deal of variation is allowed reading E notation. Ordinarily the field width rec quired 
must include a place for the E, one for the sign of the exponent, one or two for the exponent, 
one for the decimal point if any, or a total of four or five spaces more than will be occupied 
by the actual number of significant digits in the number. For example: .000072 could be 
written as 7.2E-5 or 7,2E-05 requiring a field-width of 6 or 7. 

(b) The construction oi the E FORMAT conversion code corresponds closeK' with that of the F 
code. It consists of the alphabetic code, field width specification, period, decimal-specifica- 
tion. The code for reading the numbers above would be E6. 1 or E7. 1 . 

e. I Code 

(1) The I code is used for converting integers. 

(2) The letter I is followed by an integer which specifies field width. 

(3) No decimal code is needed because integers never contain a decimal fraction. 

d. X Code 

( 1) Tlie X code may be used to indicate the number of spaces to be skipped. 

(2) The X is preceded by a positive integer indicating the number of spaces to be skipped. 

5X - do not read these 5 spaces 

e. H Code 

(1) H code is not used as much by the IB N't ' i30 as it is by some othe machines because of its special 
feature of copying material between apostrophes. However, it will be accepted. The use of H 
notation indicates that a number of spaces toilowing the letter H will be occupied by Hollerith 
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symbols (combination of alphabetic and numeric information) to be copied literalK-. 
(2) A positive integer preceding the H indicates the number of Hollerith ciiaracters that follow 
(14H 1234 SOUTH ST.) 

f. A Code 

{ 1 ) A code is u:ed to read alphanumeric information. 

(2) No decimal specification is required. 

(3) The field width of an A specification code must not exceed 4 spaces because alphanumeric Infor- 
mation requiret- more storage space than ordinan' numeric information. Extended precision must 
be used to increase the number of alphanumeric characters being read as one variable. 

g. The parentheses of tlie FORMAT statement contain the complete specification for one card or one 
line. One number-conversion code indicates one number punched per card, or typed per line. 

h. More than one code may be used in one statement. No limit is ^et on the U'lmber and variety of such 
codes as long as the I'.mit of the card or print line is not exceeded. 

1 2 FO R M AT( Fl 2, 13, E 1 0. 3, F2. 0) 

i. An integer may be placed before the conversion code to indicate how many times a code will be repeat- 
ed in the layout. 

1 1 FORMAT(3F8.2,2A3,4f2) ' 



EXERCISES 

1. Write a FORMAT statement to convert a real number having 4 decimal places from the first 10 columns of 
a card. 

ANSWER: 1 FORM AT(FI0.4) 

2. In the FORMAT statement 2 FORMAT(F8,2), a) what does the F specify, b) theS,. c) the 2? 

ANSWER: a) a real number, b) the field width, c) the decimal point position. 

3. Write a FORMAT statement to convert 3 real numbers from one card, all having the same field width and 
decimal position. 

ANSWER: 3 FORMAT(3Fi0.4) 

4. Write a FORMAT statement to convert 3 real numbers from one card, all having different field widths and 
decimal positions. c 

ANSWER: 3 FORMAT(F10.4,F8.2,F7. 1 ) 

5. Write a FORMAT statement to convert 2 integers, 3 real numbers punched in regular decimal notation, 
and 2 in exponential notation from a card. 

ANSWE.R: 4 FORMAT(2I5,3F10.2,2E20.6) 



C. COMPLETE INPUT OPERATION 

1. The complete input operation is defined by the READ statement working with a FORMAT. 

2. Spaces that are not specified in the FORMAT codes are not read. 

READ(2,1)A,B,C 
1 FORMAT(3F10.2) 

The sequence above only reads the 1st 30 card columns. Anything punched in columns 31 through 80 will 
not be read, 

3. If the input list contains fewer variables than the FORMAT conversion code, only as many as are con- 
tained in the list will be read» 
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READ(2,1)A,B,C 

1 FOB.MAT(7F8.2) 

The sequence above will read only 3 variables. 

4. If the number of variables is more than can be read from one card the computer will read as many values as 
are specified in the list. 

READ(2,2)(ACE(J),J = 1,100) 

2 FORMAT(26F3.0) 

The preceding sequence will read 100 values of AGE from 4 cards, three cards contain 26 values, the fourth 
contains 22 values. 

5. The actual mode of conversion of the number from the form in which it is found on the card to the form 
which it will take iuside the computer is determined by the FORMAT, regardless of whether or not the 
programmer has written them to agree. Lack of care in this instance could cause an error to exist. For ex- 
ample the se(]uence 

READ(2,5)I,J 
5 FORMAT(2F7.2) 
would cause real num[)ers to l)e assigned to the integer variafiles 1 and j. 

6. Separate C^ard Layouts 

a. Separate card layouts are indicated by the presence of a slash ( ) in the P'ORMAT statement, P^or ex- 
ample the statement 6 FORM AT(51o; 6FC.2 ) could be used to read 5 integers from one card and 6 real 
numbers from another card. If the associated READ called f .i more than 11 variables to be read into 
storage the third card would contain 5 integers, the fourta would contain 6 real nimibers, and so on 
until the input list is satisfied. 

1), Use of Parentheses 

(1 ) Parentheses can be used in conjunction u ith the slash to cause a single card to be read with one 
la\ out and man\' cards read from a second la\"out. For example the secjuence 

READ(2',5)N,(A(l),l = i,100) 

5 FORMAT(13/{8F10.2) ) 

would cause the computer to read one value from the first card, and 8 values from each of the next 
12 cards, and 4 from the fourteenth card. 

(2) Parentheses within parentheses after the sla,sh are no^ permitted in this type of FORMAT 
statement. 

(3) Spec:fications for particular card columns ma> be repeated by the use of parentheses. For example 
the sequence 

READ(2,6)N,J,COST,l,L,SELLP 

6 FORMAT(2(2I3,F10.2) ) 

would read 6 values from a card, reading the sequence (213, FT 0.2) twice as indicated by the inte- 
ger preceding the parentheses. 



EXERCISES 

Explain what the following pairs of input statements will cause the computer to do, 

1. READ(2,10)A,B,C 
10 FORMAT(3F7.2) 

2. READ(2,10){PRICE(N),N=:1,20) 
10 FORMAT{8F10,2) 

READ(2,10)STP 
10 FORMAT{E10,3) 




4. READ(2,10)(ALPHA(UJ = K4) 
10 FORMAT(4A!) 

5. HEAD(6J0)K:,(A(i)J=MC) 
10 FORMAT(I4/(8Fia4) ) 



ANSWERS 

1. 3 real mimhers which define A,B, and C will be read from 21 card colnnins. Each number has 2 decimal 
ph ces. 

2. Heal riunibens which define a list of 20 variables called PRICE are read from cards. Each card contains <S 
numbers and each number is allotted 10 card columns, and has 2 decimal places. 

3. One real number in exponential notation is read from a 10 card column. If no decimal is punched on the 
card the FORMAT will provide 3 decimal places. 



4. Reads 4 alphabetic characters from a card. 



5. Reads a variable number of cards. The ist card contains the integer variable which defines the limit of the 
loop. Each card following is punched with 8 real numbers. The statement will cause K variables to be read 
from as many cards as are needed to contain these varialjes if 8 are punched to 1 card. 



WRITE STATEMENTS 

1. In order to have the computer to output its solutions a WRITE statement must be used. The output state- 
ments are similar to the input or READ statement. 



The statement consists of the word WRITE, followed by a pair of parentheses containing 2 numerical 
codes separated by commas, and a list of variables separated by commas. 

WR:TE(ni,n2)A,B.CJ 
a. Output (4)des 

Logical Unit Code (ni ) Device 

1 Typewriter 

2 Card Punch 

3 Printer 

'i Paper Tape Punch 



Notice that 2 and 4 are also used as input codes. However, used in conjunction with a READ they are 
considered input, and with a WRITE they are considered output. As is the case in READ statements, 
an integer variable, pre-defined in the program can be usjd for a logical unit number, 
b. X'ariables in Output List 

(1 ) All of the variations allowed for input lists are also valid for output lists. 

(a) Variables may be of either mode in the sai .c list. 

(b) The self-indexed form may be used. 

(c) Subscripted variables may be used, unless the subscripts are mathematical expressions. 



FORMAT STATEMENTS 

1. Output FORMAT statements are similar to th(^se used for input. They specify the layout of the solutions 
on the output device, and conversion codes are identical to those used with the READ. 

2. Th'j FORMAT statement used with a WRITE statement defines the layout of a single line on the printer or 
typewriter, or a single card to be punched. This line will be repeated until the variable list is satisfied. 
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a. Printer (or typewriter) lines consist of 120 print spaces; therefore the FORMAT specifications for the 
single unit cannot exceed 120 spaces. 

b. The card-punch specifications cannot exceed 80 spaces per card. 

3. Real Numbers 

a. . The decimal point is printed. 

b. The programmer must determine the number of significant digits to be printed and constriici: the 
FORMAT accordingly. Do not call for more digits than are significant. 

c. Numbers are printed so that they are adjusted to the right of the alloted field and blank spaces occup\- 
unused positions on the left. Spacing may therefore be provided by indicating a field width wider than 
is actually needed. 

d. Unused decimal places will be filled with zeros. 75.2 with F5.2 specification will print as 75.20. 

e. A place must be reserved for printing the sign of negative numbers. Positive niunbers are printed with- 
out the sign. For example: -52.74 would require an F6.2 specification. 

f. If the number of decimal places in storage exceeds the FORMAT specification, ihe decimal will be 
truncated as prescribed by the FORMAT; for example: 25.7259 will be printed as b25.72 if an F (3,2 
specification is used, b signifying a blank space. 

g. If the number of digits before the decimal exceeds the alloted space, the entire field will be filled with 
asterisks. 

h. If there are no digits preceding the decimal a zero will be printed, using one space. For example .75 
will be printed as 0.75 requiring an F4.2 specification. 

i. Real numbers may be printed using the E conversion code. 

(1) For E output, numbers are normalized, that is, the decimal always appears to the left of the 1st 
significant digit and a zero precedes the decimal point. 

(2) The exponent correctly places the decimal point, the computer making the necessary adjust- 
ments to achieve this. 

(3) The number of decimals to be printed depends upon the decimal specification in the E code 
which is selected by the programmer. 79.234 with conversion code El 2.4 would be printed as 
bb0.7923Eb02. 

(4) E conversion codes require at least seven spaces in addition to the numbe* of significant digits 
which will be printed, four for the exponent, one for the decimal, one for iSe leading zero and 
one for the sign. , 

(5) Extra spaces can be added to the field width to improve readability an^appearai.^e of output. 

(6) A FORMAT specification of E20.7 will provide sufficient space tor any internal number with 6 
leading spaces, and is therefore frequently used. 

4. Integers 

a. I conversion code specifications are like those for input statements. 

b. No decimal point is printed. 

c. Numbers are right-adjusted in the allotted field.s. 

5. Slashes 

a. Slashes are used to signify the end of the specification for one line. 

b. More than one / in the output FORMAT causes multiple spacing, that is // would cause a line to be 
skipped between 2 lines of printing, and / // would cause 2 lines to be skipped. 

c. Slashes appearing before or after a FORMAT conversion code would cause a number of blank lines 
equal to the number of slashes before or after the printed line. 

6. Literal Data 

a. Remarks, descriptions, labels or any type of alphabetic information may be printed by enclosing the 

information in apostrophes within the FORMAT statement. 
. b. The computer will copy whatever is enclosed in single quotes as it is written by the programmer. The 
enclosed characters may be alphabetic, numeric, or special characters. 

c. No variable is listed in the output statement for literal data. 

d. Literal data may be printed before or after E, F, or I conversion codes. 

e. The number of spaces used in the specification for a line must not exceed 120. 
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f. T(J double space after a printed line slash marks (//) should follow the literal data, 

Literal data can be read into storage with a similar FORMAT iind printed out in the sume form us it is 
read in, but it nia\' not be altered in an>' wa\' if the '(juote' method is used. 

7, A Conversion 

a. To alter alphanumeric data A conversion code must be used. 

h. The code consists of the letter A followed by an integer which indicates the number of alphu numeric 
characters to be written under A conversion. 

c. A corresponding variable name must appear in the variable list for each alphanumeric group. 

d. The alphanumeric groups cannot contain more than 4 A characters if its name is a real variable or 2 
characters if it is an integer variable, To read the 2 initials and an 8 character last name the following 
secjuence could be used. 

READ(2,l)iNITl,INIT2,SNAMl,SNAM2 
I FORMAT(2A2,2A4) 
The card would be punched with A. J. WILLIAMS in columns one through twelve. 

8, X (conversion 

a, To provide spacing of output on a given line or card X conversion can be used. 

b. \i consists of the letter X, preceded by an integer indicating the number of blanks to be defined. 

9, (Carriage Control 

a. When output is to l)e produced on the printer, special specifications must be included in the FOR- 
MAT statements to provide for control of the carriage of the printer. 

b. The 1st character of the output image is not printed hut serves as a message to the computer to cause 
the printer to space down the page in various ways. 

c. Codes 

(I) If the following codes appear in the first space of the line to be printed, the corresponding car- 
riage control Oj)eration will take place, 



Code Control Operation 

b (blank) normal spacing 

0 (zero) double space 

1 (one) begin on a new page 
-f (plus) write on same line 



(2) The carriage control codes apply only to printed output, not output on cards, tape or disk.. 



EXERCISES 

Revise the program in Unit III which finds the sum of 50 numbers read from cards. Assume that the num- 
bers are punched 8 to a card with 10 field width and 2 decimal places. Use self-indexed READ and WRITE 
statements. 

SOLUTION 
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PAGE 1 
// JOR 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0002 0002 0000 

// FOR 

♦IOCS (CARD f DISK •1132PR INTER ) 
* LIST SOURCE PROGRA.M 

C THIS PROGRAM WILL READ A LIST OF 50 NUMBERSt PUNCHED ONE TO A CARD* 

C NUMBERS MUST RE LESS THAN THE ABSOLUTE VALUE OF 1000 TO THE NEAREST HUNDREDTH^ 

C THE NUMBERS ARE PRINTED AND THEIR SUM IS COMPUTED* 
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DIMENSION A(50) 
SUM=0» 

RFAD( 2» 1 ) ( A( I ) , 1 = 1 ,50) 
1 FORMAT ( 8F10.? ) 

DO 5 1=1,50 

SUM=SUM+A{ I ) 
5 CONTINUE 

WRITEOfl } (Ail) f I = lf50? 

WRITE( 3»3)SUM 
3 F0RMAT(2X, 'SUM=» ,F9.2) 

CALL EXIT 

END 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 106 PROGRAM 124 

END OF COMPILATION 

XFQ 

-33.00 7#50 36*00 17.00 38.00 49.52 -19.00 20.00 

50.00 35.00 10.00 47.00 2.00 18.00 5.00 29.00 

43.00 45.00 -44.00 0.01 12.00 13.00 26.00 40. 00 

7.00 9.00 46.00 24.00 48.00 39.00 30.00 15.00 

44.00 42.00 23.00 -1.25 25.33 31.00 14.00 27.00 

34.00 22.00 41.00 37.00 31.00 4.99 28.00 -16.00 

-P.Ol 6.00 
SUMsr 1050.09 

2, Write a FO'^MAT statement to print CA PA C:iTY=: 15,791.54 GALLONS. 

ANSWER: 20 FORMAT(2X,'CAPACrrY = 15,791.54 GALLONS') 

3. Write a set of statements to print the following: 

SOLUTIONS TO QUADRATIC EQUATIONS 
Triple Space 

../-r:r Print Column headings ♦ 
.V B C XI X2 
Double Space 

Print coefficients and answers of 10 problems under headings, each having 2 decimal places, 
ANSWER: 

WRITE (3, 10) 

10 FORMAT (43X,'SOLUTIONS OF QUADRATIC EQUATIONS', ///,41X,'A*,6X,TV 
l,6X,X'M5X,'Xl\6X,'X2\//) 

WRITE(3,11)A,B,C,X1,X2 

11 FORMAT (36X,3F7.2,10X,2F7.2) 
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FORTRAN LANGUAGE 
Unit VI 



MORE ABOUT DO-LOOPS 

1. Range — All of the statements from the DO statement to the statement whose statement number appears 
after the word DO are in the 'range' of the DO-!oop. 

2. A control statement (IF or GO TO) may never be used to end a loop. If the branch is necessary, it must 
transfer to the dummy statement, CONTINUE, which must end the loop that would ordinarily end with a 
control statement. 

3. A 'special exit' may cause the computer to leave the loop before the upper index limit has been reached. In 
this case the index value at the time of the exit may he retained for future use in the program. Transfers 
from within the loop may be made to statements outside its range. 

4. Transfers from statements outside t he ran^^e of the loop cannot be made to statements within the range. 

5. Nested DO-Loops 

a. Definition. DO-loops are nested if one is completely within the range of another loop, but the loops 
must not overlap in any way. , 

b. Execution. The outer loop begins first and executes until the beginning of the inner loop. The inner 
loop completes its cycle, then the outer continues to its enr\ and begins again. The process continues 
until the upper limit of the outer loop is reached. 

c. Two or three loops within loops are often used. 

d. Loops may be used end to end within other loops. ' 

e. Two or more loops may end at the same statement. 

A PROBLEM USING NESTED DO-LOOPS 

1. Problem — Read alphabetic elements of sets A and B from cards. An integer representing the number of 
elements in the set occupies the first 2 card columns. Write the given sets and the intersection set, provid- 
ing for a message to indicate the null set. 

2. Flowchart 



Read 

HA., SIA(I) 



1=1. HA. 



V»rlte / 
ELA(l) / I.l.Hfc 



RckAd 

KB, ELB(J) 



Jsl,!lB 



Writ* / 
ELB(J) / J.l.NB 



KOUNTs 
0 
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5i 



XSET(K: -ELA(I: 




3. (Coding Forms 



IBM 



XZ/rf^SfCT/oV or SETS 



tV set) 



.3.0.Q 
1 



2.0 



10 

.35 

3 



HEAD 



F ORMAT C 



READ 



U/R.1T 

DO i 
DO i 

lUt 

K.0 U.A/ 
K_*_K.O 
X «i £. T 



(.2., 1 ) 



t(3^ S>^ C £i. A(i), 



Z)WB., C L 



>Z6Az: 



u>6 
I -i 

T.vKOU 
UVT 

XMUE. i 



1F,( K.OU/^T ) 

r o.R>>AT.f 2.x 
300 



Z.6.A2 

4o , 3 5 
) 



) 



L.aC J.) 
) 



0 0. ..T 

F ora\at( '2.x 

G O T|0 3 00 



AO 



.JM. 



) 



Kvl,.KO UJJT) 



tr IS 



T lOA/ 



«»tT y\ , 2dA 



TH.L.. 



3; 




4. Printout 

PAGE 1 



// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0002 0002 OOQQ 

// FOR 

♦IOCS (CARD»DISK»1132PR INTER tTYPEWR ITER »KEYBOARD) 
♦LIST SOURCE PROGRAM 

DIMENSION ELA(26) ♦ELB(26) ♦XSET(26) 
300 READ! 2» 1 )NA» ( ELA( I ) ♦ 1=1 »NA) 

1 FORMAT! I2»26A2) 
WRITE(3.5 ) (ELA( I ) . 1=1. NA) 

5 FORV^AT(2X.26A2) 

READ(2»2)NB»(ELe(J)»J=l»NB) 

2 FORMAT! I2»26A2) 

WRITE (3. 5) (ELB( J) .J=1.NB) 

<OUNT=0 

DO 10 I = 1»NA, 

DO 10 J=1»NB 

IF(ELA( I )-ELR( J) ) 10.20.10 
20 K0UNT = K0UN"T + 1 

K=KOUNT 

XSET( K ) =ELA ( I ) 
10 CONTINUE 

IF(KOUNT)40.35.40 
35 WRITEI3.3) 

3 FORMAT ( 2X. • THE INTERSECTION SET IS THE NULL SET') 
GO TO 300 

40 WRITF(3.4) (XSET(K> »K=1.K0UNT) 

4 F0RMAT(2X. • INTERSECTION SET ='.26A3) 
GO TO 300 

999 CALL EXIT 
END 

UNREFERENCED STATEMENTS 
999 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 170 PROGRAM 288 

END OF COMPILATION 

// XEQ 

ABCDEFGHIJ 
B D E G I 
INTERSECTION SET = B D E G I 
A E G H D 
F I T 

THE INTERSECTION SET IS THE NULL SET 
A E T N R 

A T 0 P S ■■ ^ ' 

INTERSECTION SET = A T 57 




C. TYPE STATEMENTS 



1. The REAL statement consists of the word REAL followed by a list of variable names all of which will speci- 
fy real numbers regardless of the ordinarily significant name of the variable. 

For example t!ie statement: 

REALIDENT, NUIVIBR 
would specify that IDENT.and NUMBR are to be handled as real numbers. 

2. The INTEGER statement consists of the word INTEGER, followed by a list of variable numes which will 
be considered as integers by the pr()gram. 

INTEGER BLANK, DOT, POLY, SUM 
All the listed variables will be integral. 

3. The REAL or INTEGER statement must be the first statement of th<^ program so that the computer will 
store and use the variables when their names are first encountered in the program. 

D. PROBLEM USING A TYPE STATEMENT 

1. Problem --- The Fibonacci Sequence, 1,1,2,3,5,8,13 . . ., starts with two ones and new terms are formed 
accordin/^ to the rule that each tenn is equal to the sum of the 2 preceding terms. Find the first 30 terms of 
the sequence and all the partial sums, FSUM (I ) of the sequence up to and including the Ith term. 

2. Flowchart 

^ start ^ 

\ Write / 
\ Colunn / 



0- 



PSUMCDzl 
PSUM(2)s2 







TERM(1)»1 
TERM(2)sl 






1= 


3 










TERM(I)- 
TERM(I-l) 
fTERM(I-2) 






FSIJM(I) = 
TERMCI) 






Js 


r-2 







Write 
J,TERM(J), 

\ PSm(J) . 




ERLC 
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3. Solution 



IBM 



niHTlUN Uo-.iinj fiirm 



■■■! " 



i 1 



c . 

t 



tACHl .T£«>i IS EQUAL 



jWX-T-H_-jT.HL.„F 
AA/D. iFOfl At. 



OF 



VI R Al a LA.CC.Q Ri©l JVC-.„. !rO. - T il 1^- H U L 



T WO 



.THE. 



'it.RIti^ 1^ .SLA'ERiATED ;F OR T.Wfc/vTYi T E. RM% 



iGIV£|V UP To A>V.D lA/C\LUDJAiG LAC H Tl J{M» 

lwjiiyit.i3, iJ L 



.T.5aA\(i >^ ?;s un (l 

-2; 



-to 



xo A/jr lA/ttt: 



1 IX 



r rR A^ , 9 a 



z). 



)- 



,X5 



1.3, 
£. .T 



HAT 



9 UAl '^i 



4. Printout 



PAGE 1 

// JOB 

LOG DRIVE 
0000 



CART SPEC 
0001 



CART AVAIL 
0001 



PHY DRIVE 
0000 



V2 M04 ACTUAL SK CONFIG 8K 



// FOR 
•lOCSl 
# List 



C 
C 
C 
C 

c 



3 
2 



ERIC 



CARD »DiSK.113?PR I NTER»TYPEWR ITER* KEYBOARD) 
SOURCE PROGRAM 

THIS PROGRAM DEALS WITH THE FIBONACCI SEQUENCE 1 . 1 . 2 » 3 . 5 . 8 » 1 3 ♦ . . . . 
START WITH TWO ONES AND FORM NEW TERMS ACCORDING TO THE RULE THAT 
EACH TERM IS EQUAL TO THE SUM OF THE TWO PRECEDING TERMS* 
THE SERIES IS GENERATED FOR TWENTY TERMS. AND PARTIAL SUMS ARE 
GIVEN UP TO AND INCLUDING EACH TERM. 

I!!iTE5?R PSUM(30) .TERMOO) 
WRtTET3.3T . 

FORMAT ( 16X» •FIBONACCI SEQUENCE' ) 
WRITE(3»2) 

F0RMAT(7X» 'TERM N0« ♦ » 1 IX . • TERM 9X f PART I AL SUMM 

PSUM(1)=1 

PSUM(2>=2 

TERM(1)=1 

TERM? n«TERM( I-l )-fTERM( 1-2) 
PSUM( I )=PSUM{ I-l)-fTERM( I ) 

viRiTi(3»l) J»TERM( J) tPSUM( J) 

FORMAT ( lOX » 1 5 » 1 OX » 1 5 » 1 5 X » I 5 ) 

CONTINUE 

CALL EXIT 

END 
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FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COr/'MON 0 VARIABLES 

END OF COMPILATION 
// XEO 



128 PROGRAM 



176 



TERM NO. 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 



FIBONACCI 



SEQUENCE 
TERM 
1 
1 
2 
3 
5 
8 
13 
21 
34 
55 
89 
i^f4 
233 
377 
610 
987 
1597 
2584 
4181 
6765 



PARTIAL SUM 
1 
2 
4 
7 
12 
20 
33 
54 
88 
143 
232 
376 
609 
986 
1596 
2583 
4180 
6764 
10945 
17710 



E. PROBLEMS WITH DO-LOOPS 

I. Problem. Produce a table of values of x and y for a linear equation of the form y = ax + b. Read A and B 
from cards and compute values of y for each x from -5 to +5 at intervals of .5. 
;i. Flowchart 





b. Coding Forms 



?orr= AX/B^ 



50 

„3 



4—7 
11 



a;..a/j1d. B A 



OF 

T^t AT) 



GO. -J 
WRIT 



til, a 



RE. r<./£ 

-7 



r.QRr AT.(.3X 



AD f R;0|A CA 



AcT Ion 



)A 



t). 



RTi:^: AND A 



ATI ON 



Y.5 



':,.FT. 



2 , 



I s> "Be 



.2) 



AT 1 



NT 6HN/KL?>. 



IBM 



rURTRAN tluiJing Furm 



-2 .. 2 













































99 




C AL L 


































h-XX-t| :. 








...... 

















ERIC 
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c. Printout 



PAGE 1 - 
// JOB 

LOG DRIVE 
0000 

V2 M04 



CART SPEC 
0001 



CART AVAIL 
0001 



PHY DRIVE 
0000 



ACTUAL 8K CONFIG BK 



// FOR 

# IOCS ( CARD tDI SK »1132PR INTER »TYPEWRITER .KEYBOARD) 
» LIST SOURCE PROGRAM 

THIS PROGRAM WILL PRODUCE A LIST OF VALUES OF 
|QljATION»__Y = AX+B 

OF .5. 



X AND Y FOR A LINEAR- 

urNj Y = AX+B« 

ND B ARE READ FROM CARDS AND X IS BETWEEN -5 AND +5 AT INTERVALS 



50 READ(2»3)A»B 

3 F0RMAT(2F7.2 J 
IF(B)5»6»7 

5 WRITE(-i»^J AtB 

4 F0RMAT(2X»«EQUATI0N 
GO TO 10 

6 WRITE(3i8)A 

8 FORMAT (2X»« EQUATION 
GO TO 10 

7 WRITE(3»9)A»B 

9 F0RMAT(2X» 'EQUATION 

10 WRITE(3»11) 

11 F0RMAT(7X» 'X' »6X» • Y« ) 
DO 20 1=1*101.5 
Z«I-.51 

X=2/10. 
Y=A»X<.B 

WRITE(3»25)X»Y 
25 FORMAT(3X»F5.1.2X»F7.2) 
20 CONTINUE 

GO TO 50 
99 CALL EXIT 

END 

UNREFERENCED STATEMENTS 
99 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 

END OF COMPILATION 

// XEQ 



Y=' »F7.2» 'X' »F7.2) 
Y=' »F7.2» 'X' ) 
Y«'»F7.2»'X +*»F7.2» 



12 PROGRAM 



186 



ERIC 



EQUATION 


Y« 


X 


Y 


-5.0 


-3.00 


-4«5 


-2.50 


-4.0 


-2.00 


-3.5 


-1.50 


-3.0 


-1.00 


-2.5 


-0.50 


-2.0 


0.00 


-1.5 


0.50 


-1.0 


1.00 


-0.5 


1.50 


0.0 


2.00 


0.5 


2.50 


1.0 


3.00 


1.5 


3.50 


2.0 


4.00 


2.5 


4.50 


3.0 


5.00 


3.5 


5.50 


4.0 


6.00 


4.5 


6.50 


5.0 


7.00 



1#00X + 



2.00 
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EQUATION Ya 12. SOX -3.25 
X Y 

-5.0 -65.75 

-4.5 -59.50 

-4.0 -53.25 

-3.5 -47.00 

-3.0 -40.75 

-2.5 -34.50 

-2.0 -28.25 



-1.5 -22.00 
-1.0 -15.75 
-0.5 -9.50 



•0«5 


-9.50 


0«0 


-3.25 


0«5 


3 .00 


I4O 


9o25 


lt5 


15.50 


2.0 


21.75 


245 


28.00 


3#0 


34.25 


3^5 


40.50 


4»0 ' 


46.75 


4»5 


53.00 


5»0 


59.25 


EQUATION 


Y= 


X 


Y 


-5.0 


5.00 


-4.5 


5 .00 


•^4.0 


5.00 


-3.5 


5.00 


-3.0 


5.00 


-2.5 


5.00 


-2.0 


5 c 00 


-1.5 


5.00 


-1.0 


5.00 


-0.5 


5.00 


0.0 


5.00 


0.5 


5.00 


1.0 


5.00 


1.5 


5.00 


2.0 


5.00 


2.5 


5.00 


3.0 


5.00 


3.5 


5.00 


4«0 


5.00 


4.5 


5.00 


5.0 


5.00 



0#00X •4- 5e00 



2. Problem. A school uses one data card to hold general student information as ft)l|{>\vs: 

Columns 



Name 1-20 

Address 21-40 

Telephone 41-50 

Zip 51-55 

Student number 76-80 



A second card contains the student's schedule, using room numbers and subject codes with the student 
number punched in columns 1-5, subject codes each require 3 digits and room numbers require 3 digits. 
Each student follows a schedule of 4 to 6 classes a day. 

Write a program to print the student's name and his schedule. 

a. Flowchart 



ERIC 
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Start 



\ 




Read 


all N 


Cards in 


First 


Group 



1=1, N 



ERIC 



Read 


all N 


Cards in 


Second Group 


\ 




I 


= 1 








J=1,N 
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b. Coding Forms 



IBM 



rCRTRXN Coding Form 



(IP.) -J 



-DC....io_ x=.'x 

•-im 



re: 



SYX.r 

L 



C3, -iliJAM.l- 



, ,1'' 



i 5TN0 



ioy\, 1(0:1. C-icy g/0 2.C iP. ) V 



,:j.s} 



iMZ LI 
13 



MX. 



o 



'l\if)M4C^)., ST 



A 5. 



) 



a 



J3..,.Si 



.,..15.,.. 



S.L 

i..,.l3-j 
X.3.J 



6Xj. 



,..S..i:S.(, 



''.:k,..&0 



131. 



/A , 9.x 



)..).5.U 



/At.r5L.J:0 

j 

i 

Cu^ .... ' 



7 ) , 5-1. 



IBM 




ERIC 
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Prinloiit 

// JOP 

LOR nPlVF 

0000 



CART SPEC 
0001 



CART AVAIL PHY ORIVE 
0001 ouoo 



V? ^04 ACTUAL 8< CONFIG «< 
// FOP 

• IOCS( CAPO fO I SK t m 2PR : NTFR t TYPEWRITER » KEYBOARD ) 

• LIST SOURCE PROGRAW! 

• FXTENOFO PRECISIOfsi 

• OMF ^VORO INTEGERS 

INTFAFR STUNO< 10) tSTN02 (10) tRMll 10) tRN2 ( 10 ) t RM3 ( 10 ) tRN4(10) tR.N5( 10 
1 ) f PN6( 10) 

RFAL NAMltlO) • NAM? (10) tNAW3( 10)fNAM4(10) 

DIMENSION SURK 10) t5UH2(10) tSUfl3( 10) •SUB4( 10) tSUB5( 10) tSUB6< 10) 
RFAOJ ?t4 )N 
4 FORMAT ( I?) 

RFAO( ?t 1 ) (NAMl ( I ) fNA*^? ( I ) tNAM3( I ) tNAM4( I ) tSTUNO( I) t I»l tN) 
1 FOPwATj4A5t55XtI5) 

PEAO(2t2 ) (STN02( J) .SUBl ( J) tRNl ( J) t SUB2( J) t RN2 ( J USU83 ( J ) tRN3 ( J ) tSU 
1R4C J) tRN4( J} .SUB^C J) tRN5( J) tSUB6( J) tRN6( J) tJ«UN) 
7 FORWATJ I5tA5t I3tA5tr3tA^tl3 tA5tI3 tA5tI3tA5f 13) 

00 10 I»lfN 

00 10 J»ltN 

IF(STNg2tJ)-STUN0( I) ) 10t9tl0 
P W9ITr(3f 3)NAM1( I ) ,NAM2 ( I ) tNAM3J I ) tNAy4( I ) tSUBl ( J) tRN 1 ( J ) t SUB2 ( J ) t 

1RN?( J) tSUB3(.n tRNK J) t 5UB4 ( J ) tRN4 ( J ) t5UB5 < J ) tRN5U) tSUB6( J) tRN6( J) 
3 FORMAT ( 2X,4A5t///t2Xt 'PERIOD 1 • f 5X , A5»5X . I 3 1 / / 1 9X t » 2 • t5Xt A5 1 5X • 1 3 t 
l//f^Xt • 3' t5XtA5t5XtI3 t//t9Xt •4» t5XtA5t5Xt I3t//t9Xt'5» 1 5X t A5 1 5X 1 1 3 t 
2//fPXf • f»» f5XfA5f 5XtI3 t /// / ) 
10 CONTINUE 
CALL EXIT 
END 

FFATtjPES SUPPORTED 
O'^F WORO INTEGERS 
rxTFNOFO PPFCISION 
IOCS 

rORF PP^OUIPEMENTS FOR 
COWON 0 VARIABLES 3ftB PROGRAM 346 

PNO OF COMPILATION 

// XFO 

RLOW JOF 0 



PERIOD 1 


EN I 


201 


2 


ALG I 


203 


3 


GN HS 


309 


4 


PH EO 


111 


5 


STUDY 




6 


MM MX 


301 


NIX MIX 






PERIOD 1 


ALG 1 


203 


2 


EN I 


201 


3 


GN HS 


309 


4 


PH EO 


in 


5 


HV MK 


301 


6 


STUDY - - 


104 


CLAUS SANTA 






PERIOD 1 


GN HS 


309 


7 


ALG I 


203 


3 


EN I 


201 


4 


GN SI 


319 


5 


PH EO 


112 


6 


STUDY 


104 
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F. A PROBLEM USING ALPHABETIC INFORMATION 



Problcin. Wrile a program to produce a list of names in the order, first name» last name, address, telephone 
number. Data cards will be made up with the first name in columns 1*10, last name in columns 1 1-20, ad- 
dress in columns 21-40, and telephone number in columns 41-30» each variable being left adjusted in its 
field. Wril? the pi >giam to i 'ovide for any number of cards less than 81. Properly identify I he list and pro- 
vide appropriate column headings and spacing for neatness. 

2. Solution: 

a. Because the size of the allowable field of alphabetic information is limited, EXTENDED PRECISION 
may be used to allow grouping variables in 5 letter groups. However, since each field is longer than 5 
letters, two or more variables must be used to represent one record e.g. 

FNAMl, FNAM2 will be the two parts of the first name. 

b. A variable representing the number of cards to be read is first defined by reading from a card. 

3. Flowchart (see following page) 



^ Start ^ 

X- 

Write. 
Title of 
List 



I 







Read 




XKJ 





ERIC 



Write 
Column 
VHeadlngsy 
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4. Coding Foi in 



J L 




i_C»^jj^AAUteia^|t^/«^^ 1 J : 



bJLMCjAaJOAl- ^ ,^ , 

F OR W a t ( * • • - ^ / ^ - 





Sn4KVz( t) , ADO iCii) , A^Ti^zCl), At 



5. Printout 



PAGE 1 

// JOB '--^ 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 

0000 0001 0001 0000 

V2 M04 ACTUAL 8K CONFIG^ RK 



* 10CS?CAR0 »n I SK f 1132PR INTER • TYPEWRITER* KEYBOARD) 
*LIST SOURCE PROGRAM 

C THIS^^s'^A^PROGRaS^TO PRODUCE LISTS OF STUDENTS ENROLLED IN THE SUMMER PROGRAM 
0 MtNSION FNAM1(80) .FN^^ fADDl(80) 
WrY?^?3°1000?^*^°* •ADD3(80) »ADD4{80) »TEL1(80) fTELZCSO) 
inon FnPMAT(2X. •STUDENTS ENROLLED »»/» 2X »• JOHN F. KENNEDY SEN I OR HIGH, ^ 
^ 1SCHOOL'1/I2X»^PROB^ STYLE •./. 2X SUMMER 1968>f/ 

2///) 
RFAO (2»5) XKJ 
5 FORMAT (F10i2) 
KJsXKJ 
WRITET3»1 ) 

4 ^^OPMAT (2Xf»FIRST NAME 3X LAST N AME ». 4X ADDRESS 16X TELEPHONE 

^READ^(2»21 (FNAMl ( I 1 •FMAM2( I ) fSNAMK I ) •SNAM2I I ) • ADDl ( I ) •ADD2« I ) »AD 
1D3( I )iADD4( I ) •TEITITT) f TEL2( I ) • I-it^JJ , 
3 FORMAT (2Xf2A5f3Xf2A5f3Xf4A5f3Xf2A6f//) 

^ WRITfIsSs^'^^FNAMIC I) .FNAM2(I ) • SNAM 1 ( I ) . SNAM2 ( I) f ADDU I ) . ADD2 ( I ) . AD 
103 (I ) »ADD4{ I ) fTELK I ) •TEL2( I ) fl^l^KJ) 
Q CALL EXIT 

ERIC 68 



2^10 PROGRAM 



FEATURES SUPPORTED 
EXTENDED PRECISION 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 

END OF COMPILATION 

// XEQ 

STUDENTS ENROLLED 

JOHN F., KENNEDY SENIOR HIGH SCHOOL 
PROBLFM SOLVING-COMPUTER STYLE 
SUMMER 1968 



258 



FIRST NAMF 



LAST NAME 



ADDRESS 



TELEPHONE 



AYLIF 
WALTER 



ARTUS 
BARNES 



1713 TENNESSEE ST. 9^3-7298 
1^ THRUSH ST, 282-9557 



SALVATORE 
CHARLES 



RECNFL 
BIBBINS 



11200 CHEF MENTEUR 2^2-1150 
1220 S. MIRO 529-23^2 



G. ANOTHER VERSION OF THE SAME PROGRAM 

\. Problem. Write a program similar to the one just illustrated, but arrange the list in block st\*Ie, as would be 
used to address envelopes. Zip codes will be found in columns 51-55. 

2. Solution: 

a. Since the alphabetic information has been given variable names, it can be nioxed b\' adjusting the 
FORMAT statements- The saine type of output could be produced for extremely long lists without 
storing all the variables using the continuous loop tcchni(]ue. 

b. Coding form. 



IBM 



1 1 



ERIC 



(x s )\kj . 



JwJLH 



CALL 



Ox 



zx 



: _ „ _ . . ' 



"Li 



69 



c. Printout. 

PAfiP 1 
// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0001 0001 0000 

V2 M04 ACTUAL 8K CONFIG fiK 

// FOR 

«IOCS(CARD»DISK»1132PRINTER»TYPEWRITER»KEYBOARD) 
» LIST SOURCE PROGRAI^ 

♦EXTENDED^PRECISION^^^^ TO PRODUCE A MAILING LIST OF NOT MORE THAN 80 NAME 
DIMENSION FNAM1I80) ♦FNAM2(80) tSNAMKaO) ♦SNAM2(80) ♦ADD1(80) ♦ADD2(80 
1) ♦A0D3(80) ♦ADD4t80) tZlPtSO) 
RFAD(2»5)KJ 
5 FORMAT* 12) 
WRITEOtl) 
1 FORMAT (IHI) 
WRITEOilOOO) 

1000 F0RMAT{2X»»STUDENTS ENROLLED •♦/♦ 2X JOHN F. <ENNEDY SENIOR HIGH SC 
IHOOL' ♦/»2X» 'PROBLEM SOLV I NG-COMPUTER STYLE '♦/ ♦2Xf 'SUMMER 1969' »/// 
?./) 

'REA0{2»2) <FNAM1 { I ) ♦FNAM2( I ) tSNAMl ( I ) tSNAMZt I ) »ADD1( I ) tADOZC I 1 tADO 
13t I) ♦AD04( I ) tZIPC I ) t lsltlCJ) 

^ WRITeI3?3?*FNAM1 ( I ) ♦FNAM2( I ) f SNAMK I ) ♦SNAM2( I ) tADDK I ) tADOZ* I ) tADD 

13( I ) »ADD4{ I ) tZIP; I ) tlsltKJ) 
3 F0RMAT( 2X»4A5»/t2X»4A5»/»2X» 'NEW ORLEANS* LOU I S I ANA ' » 2X »A5 ♦ //// ) 
CALL EXIT 

END ■ 

FEATURES SUPPORTED 
EXTENDED PRECISION 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 2168 PROGRAM 226 

END OF COMPILATION 

// XEO 

STUDENTS ENROLLED 

JOHN F. KENNEDY SENIOR HIGH SCHOOL 
PROBLEM SOLVING-COMPUTER STYLE 
SUMMFR 1969 



AYLIE ARTUS 

1713 TENNESSEE ST, 

NEW ORLEANS* LOUISIANA 70117. 



WALTER BARNES 

14 THRUSH ST. > 

NEW ORLEANS* LOUISIANA 70124 



SALVATORE BECNEL 

11200 CHEF MENTEUR 

NEW ORLEANS* LOUISIANA 70128 
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H. A PROBLEM HAVING A SPECIAL EXIT FROM A LOOP 

1. Problem. Write a program which will examine a list of 10 numbers representing debits and credits to find 
the first location in which a credit (negative number) is found. The location of this number on the list and 
the number itself are printed. 

2. Solution. 

a. Flowchart 



Start 
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b. Coding form 



ISM 



FORTRAN Coding Vorin 



1 . . 


















4 I 























' |DIMEjyS.IO/«i aCIo) 



) 1 x-i 10 • 



J . FORAVAT^fiFilO, l)[ 
: if 

: CO .TO- 5 . 
S. ;c«tT):iT^X. J . 

; wriTjlCs, 4;;an>4.T, All/ 

... ao . 

.5.. ;w-RimCi, 6? 

6 >ORMAT^Z;r 

.5 0 T O a 



, '..M ACCOo'nTS .ARE. ClillDn £T>.*) 



U ! :£N.>..1 1 

c. Printout 

PAGF 1 
// JOR . 



TUt iuOCM ION. -OIf . THtf- F l.RShr. CRt,D.lT..-.Fll.0.liv -W-^LXSTl . aR i O. 



A .^PXCXAL 



V F .4 



2) 



EAXT. 



LOG DRIVE 
0000 



CART 'SPEC 
0001 



CART" AVAIL 
0001 



PHY DRIVE 
0000 



V2 W04 ACTUAL 8< CONFIG flK 



c 
c 



// FOR 

* IOCS ( CARD»D I SK»1132PR INTER .TYPEWRITER .KEYBOARD) 

» LIST SOURCE PROGRAM . ' X>£^ 

THIS PROGRAM FINDS THE LOCATION OF THE FIRST CRED I Ti^^FROM A LIST OF 10 
DERITS AND/OR CREDITS. IT ILLUSTRATES A SPECIAL EXIT FROM A LOOP 
DIMENSION A(l-O). --r— — 
'^EAD(?»1) IA( I) »I = 1»10) 

F09MAT I 8F10.2 ) ""r; 
DO 2 I=l»10 
IF(AI I ) )3»2»2 
CONTINUE ■ 
GO TO 5 
CRFDT=I 

WRITEI3»4-)CREDT»AI I ) . . . 

F0RMATI2X»«CREDIT ACCOUNT NO. • » F3 • 0 » 1 X » • $ • F6 . 2 ) 

GO TO. 3 

WRITE{3»6) ^ ■ 

F0RMAT(2X» 'NO ACCOUNTS ARE CREDITED') 
GO TO R ' 
CALL EXIT 

END . 



8 
1 



2 

3 

4 

5 
6 



UNREFERENCED STATEMENTS 

7 ■ . - 

FEATURES SUPPORTED 
IOCS 

CORF RFQUIRFMENTS FOR 
COMMON 0 VARIABLES 

END OF COMPILATION 

// XFO 

NO ACCOUNTS ARE CREDITED 
, CREDIT ACCOUNT NO, 6. $-14.98 



26 PROGRAM 



142 



72 



FORTRAN LANGUAGE 
Unit VII 



/\. FUNCTION SUBPROGRAM 



1. When a function is to he used repeateclK' in a program, hut cannot he ex()re.s.secl in a .single I-'ORTHAX 
arithmetic expression, a function subprogram can he writtfMi, stored on the disk, and used in the same 
/nanner as a h1>rar\' function, or an arithmetic statement function. 

2. Form 

a. FU"NC/riON Statement — The word FUNCHTON followed b\ a function name, an open parenthesis, 
a list of dumm\' argumcnis separated commas, and a closed parenthesis. 

FUNCTION DIST (A, B) 

(1 ) The name has 1-5 alphameiic characters, the first of which is alphahetie. 

(2) The mode of the FUNCTION is implied by the first letter of its name. 

(3) Argu;nents 

(a) The arguments need not agree in mode with the FUNCriTON. 

(b) The arguments are dummij variables. Their vah- » is not defined in the subprogram but will 
be supplied by the statement in the main progra... which mentioui the function name. 

b. After the FUNCTION statement an\- combination of program steps ma\- follow to determine the val- 
ue of a single result, 

e, A statement must be included in the program steps that sets the NAMF of the function ecjual to the 

desired results , 
d RETURN Statement 

(1) The word RETURN 

(2) The computer is told to start the main program where it left off, 

e. END Statement 

(1) The word END 

(2) Every subprogram must have its own Ei^JD statement, 

f. If the FUNCTION deals with arrays, it must have a DIMENSION statement. This would be placed 
immediately following the FUNCTION statement, 

3. Execution — The FUNCTION is called upon by using its name in an expression in the main program. 
B. WRITING A FUNCTION SUBPROGRAM 



1, Problem: Although the 1 130 library does not contain the arcsin function, a programmer solving trigonome- 
try problems would probably have use for this function. Write a FUNCTION subprogram called ASINE 
which will compute the value of THEIVV in radians for any known value of the sine of theta. Remember 
that the word SIN can not be used as a variable as it is a library function. 



2 Solution: 
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KURTHAN nniimg Form 
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PROGRAM USING A FUNCTION SUBPROGRAM 

1. Problem - Sides A and C of 20 right triangles ABC are known. Solve the triangles. Allow space for values 
o A and C below 1000 to the nearest hundredth. Print out the given information and the values of the an- 
g es m degrees to the nearest tenth and the missing sides to the nearest hundredth. If A and C are not feasi- 
ble sides of triangles print out a message to this effect. Flowchart the problem first, 

2. Flowchart 



Write 
^Documentay 
tion 



Change 
Radians To 
Degrees 



i^rite 
Column J 
leadings/ 









t 




^Read Sides 
and 



Write 
Error 
Message 
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Compute 
Angle B 



Compute 
Side b 
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3. Solution 



A.. .A . 



:r:: 



*^jtfAiifl|tf.«Hl'a?. }.-. 

[ (rLKA»).?ij^A^D. *A |a 0.,./3^».l U Li^ 

2 .jijLMiJx:sX.u'^r^ lax., . 



AMD C 



-A fit. 



! ...L.W.R:i-Tje^(Ji,^3l). 

3; iF<i RA^T ( 9.xL * A-' ii ZX, - ' 



r 



.SXAL4?iA-Cl-)l/c_(:L.> 



.all) 



aAD.4^ A,ftIAljc C si.aU) 

90 . ■ TaE.cn Aflx^ 



MUST 

.6, 



AV&.Lt 



6|X , 
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CAl.L 








#H 




cinlAti 




JtaLtxi 










. ; =:■;]•' 


















'. 1 .■ ' ■ : ; 




-t'.-.it. ■• 
f.^ ■ ■ 








; ■ ! i" 




m 


-AMI 


..u 


















- !■ i 1- i 






7. r.' 






























!• :• 


; ) .M ■ 



4. Printout 



PAfiF 1 

..L-OG, DRIVE 
0000 



CART SPEC 
0001 



CA!?T AVAIL. 
0001 



PHY. DRIVE.. 
JOOO 



v . ? 



// FO?. 

-♦tfKS(CA'?^tOrSK tn3?PRr.'VTF?tTyPEWKITt^-f?tKt:rR0A90) " 

* LIST SnriRCF PJROG'^A'^ 

# NAvr 5 1 MVP 

RT■GHT'7^"IA^Tr^L'r■pf<0PL^^1;' A" f S" A SIO'E" A",\'0 C "TS'ThE" WPOTE»\USE." A""' Aj\0' C AWE KN0W:4 
C TO P^E LFSS THAN 1000. ANGLES Aj^E COMg-UXED TO HUNO«EOTHS OF DEGKEES.. SIDES Al^t: 
C f:nvPllTRri TO THE MEAl?trST HtJMr)K£nTH, 

nr'WF'Nsro\ a( 70UfB(?o) fC^^o) ♦o£gra(?o) tOEGi?fl(;?o) 

DFG{.RAD)=RAD»iaO, /3,141ft 



' ? FnR^^AT(14Xt •Gl\-'E'\i» i;?<»Xt 'SOLUTION' ) 
WRlTF(3t3J ^ 

• - no ?n i=i»?o 
— RF^nf 2>6 ) A ( n iCf n : 

a FORW'ATC^FB.S ) 

siMA=A( I ) /c{ n 

i-Fi-em-i^TT-T<? ] 

_ 7 WRITFC^f^) 
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q F0RMAT(2Xf*C N'UST GIVEN, UO SOLUTIOiN*) 

" GO TO "?0 "■ 

^ ic^{C( n-A( I ) ) io»io»ft 

m WRITF(3»11 I 

11 F0RVAT12X,»C ^^UST RF ^f^FATFR THA\ Ai NO SOLUTION') 
TO ;?o 

f« 5TNA = A^H/ef-^^ - - :~ ~ 

«?AOA=ASI^'r (5INA) 

nFGRA( I )=OEG{RAOA) 

DFGRRI I") = 9a.-nF"Ci'?A( I ) 

R( I l=SORT(C{ I )»*2-A( n»»2 ) 

lii'ffTTF(:^>Cil A( n ,CM > »R{ I ) ■DRGRAi I ) »U£GffB< I ) 

5 FJRMAT<2X»F5«2f5X,FP.,;?f 7XfFe.2i5X»F8«2#5X»F8.2) 
?0 CONTINUE 

GAi.L -FXir - - - 

FNh 



IOCS 



CORF RFOIJIRF'^E'NTS FOR SIHYP 
COMVON 0 VARIABLES 
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FNH OF CnwpiLAT rON 



JalS iiA STH^t^ 



CART 10 onni 



op AODR IFFA 



OB CAiT 



0015 



PAGE 1 
// JOR 



LOG DRIVE 
0000 



CART SPEC 

OOJl 



CART AVAIL 

;?ooi 



PHY DRIVE 

0000 



V? V05 ACTUAL 8k' CONFIG 



"//FOR 

* LIST SOURCE PROGRAM 



8IC 



F(ir,|CTION ASP!F(S1ANG) 
TAN=SI A\G/SORT I l.-SI ANG**2 ) 

THFTA^ATANt^T-Af^) 

ASINF=THETA 

RETURN 

~ 

rORF BFOUTRFMFNTS FOR ASI^JF 



COWMON) 



0 VARIARLFS 
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- EN O OF-COMP^LAT lON- 
// OUP 



*STORF WS UA ASINE 

TART in onni db anciR zoof dp cmt Q00f^^^ 

// XEO SIHYP 



A 

"4.00 
7.00 



GIVFN 

c 

s.oo' 

i;?«oo 



B 

9.74 
5 . 17 



SOLUTION 
ANGL E A 

53.12' 

35.60 

30 . Q 5 



_ AtNGLt B 
36.87 
54.31 
5 5 . 90 



154.27 
3«.50 

-r:-*njsT 1^E- 

C VUST RP 
C ^^UST HE 

lR4.rio 
i°.nn 



200.01 
62.75 

Gtv£-fsr» -NO-soturroN' 

GIVEN* NO SOLUTION 
GREATER THAN Aj NO 
CT"EATER~rHA"N"""Ai~N^'' 

27ft. 00. 
^ 36.00" 



127.29 
49.55 



iOLLflLON.. 
SOLUTION 
205;71* 
31 . 17 



50.47 
37.84 



41.81 
29 . 99 



39.52 
52.15 



48.18 
60 . 00 



14.00 

53?i.no 

45.00-- 

20.00 
1?.00 

" 2i'5 A?7 00 
fl9.00 



Ifl.OO 
7832.00 
-562-1-.-^)- 
30.00 
56.00 



~4ir6T".757r 
85?. 00 



11.31 
5746.92 
-5^^.~8-2- 
22.36 
54.6_9 



^TT.51 
847.33 
195.95 



51.05 
42.79 

--^•-ir5 

41.81 

83.5^ 
5.99 



38.94 
47.20 

48.18 
77.62. 
"6.46" 
84.00 
78 . / i 6 



65.00 



RQ.OO 



60.79 



46.91 



43.08 



. //._ JP"^. . .. 
LOG' ORrvF 

oiiau _ 



CART SPEC 

— aooo 



CART AVAIL 
0X104 



phy drive 

iXX^ 



V? ^-05 
// DUP 



♦OFLFTF • • 
CART 10 0003 



ACTUAL .8< CONFIG RK 



A'SINT 

0« AODR 2nOF 



OR CNT 



0004 



♦^FLFTF 

CART 10 ooni 



SIHYP 
OR AOOR IFFA 



OR CNT 



0015 
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HOW TO STORE A FUNCTION SUBPROGRAM 



1. The deck for the subprogram ma>' he placed after the KNMD card of the main program. 

2. Regular control cards precede the FUNCTION subpiugram deck, 
a. // JOB 

I). // FOR 

c. MJST SOURCE PROCRAM (optional) 

8. Special cards which are needed to store the function subprogram on the disk. 

a. // DUP 

This is a monitor control card which activates the disk utility programs u hich. accomplish storage on 
Ihedisk. 

b. "STORE VVS UA NAME 

Spacing on the storage card must be exactly as described, 'in column /. STORE in columns 2 thru 6'. 6 
blank spaces, \VS in columns IS and 14, 2 blank spaces, UA in columns 17 and /*S'. 2 blank spaces. 
NAME (the name of the program, formulated b\- the programmer in accordance with naming rules) 
begins in column 21 . 

DELETING A PROGRAM FROM THE DISK 

1. To keep the USER area of the disk from becoming filled, and thereby unavailable, it is necessary to remove 
subprograms when they are no longer needed. 

2. 'I hree cards are needed to remove a program from the disk. The\ are; 

// JOB 
// DUP 

^ DELETE ASINE 

The FORMAT of the DELETE card must be precise, ° in column /, DELETE in columns 2 thru 7 and 
the subprogram name begins in column 21 . 

HOW TO STACK THE DECK OF A PROGRAM HAVING SUBPROGRAMS 

II JOB 
// FOR 
MOCS 

MJST SOURCE PROGRAM (optional) 
'NAMESIHYP 

C TRIANGLE PROBLEM. A IS A SIDE AND C:, etc. 



(card deck for main program) 



END 
// DUP 

°STORE WS UA SIHYP 

// JOB 
// FOR 

n.IST SOURCE PROGRAM (optional) 
FUNCTION ASINE (SIANG) 
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(card deck for FUNCTION subprogram) 



. RETURN 
END 
// DUP . 

"STORE WS UA ASINE 

// XEQSIHYP 

DATA CARDS 

// JOB 
// DUP 

"DELETE ASINE 
// DUP 

" DELETE SI HYP 



G. SUBROUTINE SUBPROGRAMS 



L This type of program is similar in m^ny ways to the FUN CATION subprogram with one exception being 
that it may be used to compute as many results as a problem may require. 

2. ^rhe SUBROUTINE is used when a set of operations which wilt be used many times is grouped together. 

i • ■ . 

3. It is brought into ase by a special statement consisting of the word CALL, the subprogram NAME, select- 
ed by the programmer, and as many dummy arguments and variables as are needed to perform the compu- 
tations. The variables are separated bv commas and enclosed in-parentheses. 

CALL ROOTS {A,B,C) 

4. The SUBROUTINE is constructed using as many FORTRAN arithmetic statemeivfs as are needed to per- 
form the desired operations. 

a. A statement beginning with the word SUBROUTINE and followed by the name and its arguments 
must be the first statement. 

SUBROUTINE ROOTS (A, B,C) 

b. The execution statements must end with a RETURN statement. 

c. Every subpiogram must have its own END statement. 

d. If the SUBROUTINE deals with arrays, place a DIMENSION statement after the SUBROUTINE 
statement. » 

e. COMMON Statement 

(1) COMMON statement is used to allow the sharing of storage between, programs and subpro- 
grams, so that a value computed by a subprogram can become a part of the main profum or of 
another subprogram. 

(-2^— The statement consists of the word COM MON followed by a list of variables or array names, sep- 
arated by commas . 

COMMON HI, LOC ' ^ . 

(3) Every COMMON statement usually has a counterpart in another program or subprogram. . 

(4) The variables listed in the COMMON statement will share storage locations in the order in which 
they are listed. If the first variable on the COMMON list of the main program is PRICE and the 
first on the subroutine COMMON list is COST, then PRICE and COST will^share the same stor- 
age locations. 

(5) Any number of programs may have COMMON statements. 

(6) If there is no variable in the main program to be shared according to the variable list in asubpro- 
grahi, the place or ordei in the list can be retained by inclusion of dummy variables as 
placeholders. 

(7) The COMMON statement is placed after the DIM ENSIGN statement- and' must precede any 
executable program steps. 
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H. WRITING A SUBROUTINE SUBPROGRAM 

1. Problem: Write a subroutine that will find the highest number in a list of real numbers. The number of 
variables in the list must be flexible, but the program must accommodate at least 300 positive numbers, 
with a maximum value of 100.00. 

2. Solution and flowcharts follow. 

/. PROBLEM USING A S UBROUTINE 

1, Problem: Sort a list of averages (real numbers) from the highest to the lowest using the subroutine HIAVG 
to find the largest in the array. Place HIAVG in a new array each time it is found, and remove it from the 
old array so that it is not used again, 

2. Solution and flowcharts follow. 





Subroutine 
HIAVG 
(AVG,N) 



Dimen 
AVG (5 


sion 
00) 






Common 
HI, LOC 



HI= 
AVG (I) 






His 
AVG (I) 




LOCs 






I 



o 
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IBM 
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PAGF 1 

// JOR 

LOG. ORIVF 
0000 



CART SPEC 
0001 



CART AVAIL 
0001 



PHY DRIVE 
0000 



V2 '^CU ACTUAL 8K CONUG flK 
// FOR 

*inC5(CARDfDISK fll32PR INTER f TYPEWRITER •KEYBOARD) 

♦LIST SOURCE PROGRAM •■ , 

♦NAME AHILO 

DI'^FNSION AVG{ 500 ) lAHlLOl 500) — 
COV^'ON HI iLOC — ' 

1 WRITFO,?) 

2 FORMAT (?X»*THIS PROGRAM ^ILL ARRANGE A LIST OF MU'/iBERS I\ DFSCE.MO 
lING ORDER. UP TO 500 Nu^RERS MAY HE ENTERED. ••/• 2X »• ThE FIRST CARD 
? ENTERED CONTAINS AN INTEGER SIG.\IFYING THE SIZE OF , THE^ L I ST • • // ) 

00 '♦O 1 = 1 1500 * 
* 40 AVG( I)=0. . ■ 

RPAD( 2t3 ( AVGI I ) • I =1 iM) 

3 FORVAT( U/{aF10«2) > • 

00 30 JsliN ■ . 

1 = 1 

CALL HIAVGCAVGI ) fN) 
AHIL0{J)=HI 
7 AVGiLOC)=0. 

30 comtinue 

WRITF{3tA) lAHlLOt J) .J^l .N) " ' 

4 FOR'^ATt2Xt5F20.2) 

CALL FXIT . 

UMRFFFRFNCED STATE^^ENTS- 
1 ' 

FFATURFS SU»-r>ORTED 
IOCS 

CORF REOUIREMENTS FOR AHILO 
COV^-'ON 4 VA«?IArLES 

FMO OF CO^^PILATIOM 

// nup 



2008 PROGRAM 



262 



*5T0RF ViS UA AHILO 

CART ID OOni OR AD.")R 200A OH CNT 0012 



PAGF 1 
// JOR 

LOG DRIVE 

0000 



CART SPEC : 
0001 



CART AVAIL 
0001 . 



PHY DRIVE 
0000 



V2 M04 . ACTUAL ■3.< CONFIG >1K 
// FOR 

♦LIST 50URCF PROGRAM 

SUf?RCUTINE HlAVG(AVGf.N) 
OIVFNSION AVG(500) 
COV\-»orj HI tLOC 
HI«AVG(I) 
DO 20 I=ltN 
IF(HI-AVG( I) )5f5t;?0 
5 HI=AVG( I ) 
LOC= I 
20 CONTINUE 
RETURN 
END 

COKE REOUIREMENTS FOR HIAVG 
COMi^ON 4 VARIABLES i 

FND OF COMPILATION 

// DUP 

♦STORE ■ WS UA HIAVG 
CART ID 0001 DB AOOR 201C 



PAGE 1 
// JOR 

LOG DRIVE 
0000 



PROGRAM 



60 



03 CNT 



0005 



CART SPEC 
•" 0001 



CART AVAIL 
0001 



PHY DRIVE 
0000 



V2 M04 ACTUAL 8K CONFIG B< 

r- ^ ..... , ■ 

// XEO A^ilLO 

THIS^-PROGRAM WILL ARRANGE A LIST OF NUMBERS IN DESCENDING ORDER. UP TO 500 NUMBERS MAY BE ENTERED. 
THE FIRST-^CARD ENTERED CONTAINS AN INTEGER SIGNIFYING THE SIZE OF THE LIST. 



// DUP 

♦DELETE 
CART ID 0001 

♦DFLFTF 

O ID 0001 
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100.00 
93.00 
R2.Q5 
, 74.00 
62*00 



HIAVG 
DR ADDR 201C 

AHILO 
08 AODR 200A 



98.50 
92.00 
82.00 
70.00 
61.00 



97.00 
90.00 
81.50 
69.00 
59.75 



DR CNT 



D3 CNT 



0005 



0012., 



96.33 
87.50 
81.50 
,63.75 
52.00 



95.00 
83.33 
74.00 ' 
63.50 
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FORTRAN LANGUAGE 
Unit VIII 



A. DOUBLE SUBSCRIPTS 

1. To review, subscripts arc used to identify a particular variable in an an ay or a list of variables. 

2. When there is more than one list in the array double subscripts may be used. 

3. The form of a double subscripted variable name is the name followed by a pair of parentheses ericlosinii 
the two subscripts separated by commas. 

USTdJ) 

4. The rules for single subscripts apply alsci to double subscripted variables. 

5. The first subscript signifies the position of the variable in the sid)-array, and the second sul)script signifies 
the number of the sub-array. 

LIST (5,2) 

The variable is the fifth member of the second list. 

6. A double-subscripted DIVIENSION statement must be placed in the program if a double subscripted ar- 
ray is used. 

DIMENSION LIST (10,4) 

The statement would reserve storage for 40 values of LIST, 4 arrays of 10 values each. 

B. MATRICES 

1. A group of numbers arranged in a rectangular array is known as a matrix. 

2. Double subscripted notation is used to indicate the positions of variables by row number and column 
number. A 3 X 2 matrix may be indicated as: 

A (1,1) A (1,2) 
A (2,1) A (2,2) 
A (3,1) A (3,2) 

^ • 

The 1st subscript refers to the row and the second to the column of the array. 

3. Within the computer the two-dimensional array is stored in single array form as follows. A,( 1, 1 ), A (2,1 ), A 
(3,1) A (1,2), A (2,2), A (3,2). Each column is laid out in order before a new column is begun. Notice that 

v;r7ttel&t-su.bscr'ipt is completely cycled before the second subscript moves up one. 

4. 1130 FORTRAN also allows 3-dimensional array notation. • ~ - . 

a. Triple subscripts are used to identify positions. 

b. The computer treats the 3-dimensional array as an array divided into sub-arraySy each of which is also 
divided into a 2-dimensional sub-array. 

c. The first subscript is advanced most rapidly, each time it reaches its limit the second subscript is ad- 
vanced and when the second reaches its limit the 3rd is advauv ed. 



C ; DOUBLE SUBSCRIPTED INPUT/OUTPUT STATEMENTS 

L The FORMAT of the self-indexed input/output is: , , 

READ(2,l)((AGEaj),l = l,5),J = l,40) 

ERIC ,5 



This FORMAT is precise, Iwo open parentheses, the variable name, open parenthesis, two dummy sub- 
scripts separated by a comma, closed parenthesis, comma,. .ooe index definition, closed pareiiUtesis. com- 
ma, second index'definition, closed parenthesis. 

2. The double-indexing works like nested DO-loops, the innermost index cycles completely, then the outer- 
most is stepped up by 1. and the innermost cycles completely again before the outermost steps up again. 

3. The READ illustrated above will read the quantities in the following order: 

AGE(l.l), AGE(2,1), AGE(3,1), AGE(5,l), 

..AGE (1,2), AGE (2,2), AGE(5,2), 

AGE(l,3i[, AGE (2,3), etc. 

4. To reverse the order of reading an array the index definitions may be reversed. 

READ (2, 1 )((AGE( I,J ),J = 1,4),1 = 1 ,5) 

Will read values in the order: ^/?v^t>^Kl; 

AGE(1,1), AGE(1,2). AGE(1,3), ACE(1,4), AGE(1,5) 

AGE (2,1),- AGE (2,2), ' AGE (2,5) 

ACE (3,1), AGE (3,2), * AGE(3,5) 

5. To write an array it is usually" convenient to print a row at a time so the second subscript should be cycled 
most rapidly. The same sequence as listed on the preceding page in the READ would be used with the 
word WRITE, 

WRITE (3,1 )(AGE(1,J),J = 1.4),I = l!5) 

6. All variations of listing which apply to self-indexed input/ output statements also apply if these variables 
are doubled subscripted. 

D. A PROBLEM USING DOUBLE SUBSCRIPTED VARIABLES 

1. Problem •:— The sum of two matrices mai^be illustrated as follows: 

J—' 

k(l.I) k(I,2) k(l,3) • 
k{2.1) k{2,2) k(2.3) + 

k{3,l) k(3,2) k(3,3) / 
1(1.1) 1(1.2) 1(1.3) 

1(2,1) 1(2.2) 1(2.3) - . _ . ... . - ■ 

1(3,1) 1(3.2) 1(3,3) 

k(l.l)+l(l.l) k(1.2)+l(1.2) k(1.3)+l(1.3') - ^ 
k(2.1-)+l(5..1) k(2.2)+l(2.2)- k(2.3)+l(2.3) 
k(3.1)+l(3.1) k(3.2)+l(3,2) k(3.3)+l(3.3) 

Write a program that will add two 5X 4 matrices. 

2. Flowchart 
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Skip 3 
Lines 



3. Solution . ' 



IBM 



-J— 




i. if 0RnATC4xjio) . 




- 3; icojvrjimt ^ r 

2 F0RMAT( ^X;,4X IOlX -I 

.5, :f oal^•^T/y//>,^ . I . ■ A I. ^ _ 



,1 

), li 



- - ■ t- 



: K'RiTt.o,.-'*;) ■ i i- ■ 

A SOKi^T( / /./ / //)] : .; : j .: . 

. . ,60 T;0. A 0.0, 



l.Ili jCAL.1. 
'. -^_it.A/I> . 



■ ■ ■-. i 



4. 1 Printout 



onon 



CART .SPEC 
0001 



,CA'iT AVAIL 
0001 



AfTlJAL ■ S'< CONFIG RK 



// FOP 

*inc.S( 

* LI.ST 

c 

ion 
1 



PHY DRIVE 
0000 



CARDfDISK ,1132"R INTFR »TYPEWR ITER»KEYROARD) 

SOni^CE PROGRAV 
PROGRAM TO AOD TWO MATRICES AND PRINT OUT RESULTS. 



3 
? 

■ 5 
4 

1 ] I 



OI^'!F^■•SIO^! K(3»4) » L(5,^) 
RFAHl ?,1 ) ( (K( I »J) .J=l .4) 
FOR'^ATI^IIO) 
DO ^ I =1 ,5 
nn J=l»4 

-^n f j)=K( 1 ,j)+Ln .jv 

CONTINUE 

V'R ITF ( 3 »2 ) ( (< ( I » J ) 
FOR'WAT ( ?X ,4 I 10 ) 
WRITF(3,5) 



.1=1 .5 ) . ( ( Li I-.-)J ) » J= 1,, 4 ) f I = 1 . 5 ) 



J=l ,4 ) ,1 = 1 ,^5 ) 



FORVAT ( /// ) 
WRITF(3,2) ( 
WP rTF( 3 .5 ) 
WRTTF(3»? ) ( 
WRITE (3. 4 5 
FORMAT [//////) 

TO 100 
CALL FX IT 



( L n ♦ J ) I J = 1 » 4 ) » 
( I , J 1 



T = l 



5) 



»j=r»4) , 1 = 1 »5 
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UNr?EFFRFNCb"n STATEvENTS- 
] 11 

FFATIJPRS SUPPORTED 
IOCS 

CORF RFQllI RF'^'EMTS FOR 
CO^-^MON n VARIABLES 

^^MD OF COMPILATION! 

// XFO 



-4 

7 



8 
-1 

4 
R 
5 



126 PROGRA' 



3 9 

2 3 

1 3 

^ 9 

A 3 
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- ^ 

1 



? 

7 

5 
2 



1 
-7 



3 
3 



-7 

1^- 

7 



6 

13 
7 



-6 

I? 
S 



-5 

\? 
6 



£. MORE DO'LOOP PROBLEMS 

1. Although a plotter is available for the IBM 1 130> satisfaetory graphs ean he oroclueed hy using the doiihlo 
subscripted variables and nested DO-looj) facilities of the computer. 



ERIC 



dues of -^OZ, 4- 
the first 



(1) 



Prcblems 

a. Write a program to produce a graph of a linear tunction of the form y ax + b, for 
at intervals of 2. 

NOTE: Bl^ANK, DOT, STAR are 3 alphameric variables which are entered on a card 
column is blank, the second column contains a period, and the third contains i.n asterisk. 
Plan for solution. 

Read alphameric characters and variables a and b. 
Fill a 61 X 61 array with blanks. 
Eill column 31 with dots. 
Fill row 31 with dots. 

Under control of the inde.x of a looj^ (J ) set up values of x from -30 to -f-30 at intervals of 2. 
Compute y from e;S.*h value of x. 

if y is greater than |3l| the point will not be on the graph, so try another value of x. 
If y is less than |3l) determine its location on the graph, and find the subscript correspond- 
ing to this location. 

NOTE: Adding .5 to the value of y before changing it to an integer to represent the subscript 
has the effect of rounding off the number e.g., if y ,= 7.3 adding .5 before the IFIX yields 
7.8 which is truncated to 7, if y = 7.6 adding .5 gives 8.1 which' is truncated to 8 bv the 
IFIX. 

Set the point determined by (x,y ) to a star. 

When all possible values have been calculated write the GRAPH array row-wise. 
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(a) 
(b) 
(c) 
(d) 
(e) 
(f) 

(g) 
(h) 



(i) 
(j) 
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(3) Coding sheets 



IBM 



PQRTnAN CtKling Pcm 




IBM 



FDRTRAN Cod ins farm 
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(4) Priatinit 



PAGP 1 
// JOR 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0001 OOCl 0000 

V2"^04 ACTUAL 8K CONFIG flK 

// FOR- . . 

♦ IOCS f CARD »0 1 S<»1132PR INTER fTYPEWR ITER fKEYBOA.-iD) 

♦ LIST SOURCE PROGRAM 

♦ ONF WORD INTEGERS 

INTFGFR BLANK,D0T»STAR»GRAPH{61»61 ) 
100 RFAO(2»1IBLANK»DOT,STAR 
1 FORMATOAl) 

READ(2t2)AtB 
? FORMAT(2F5.2> 
WRITF(3,3) 

3 FORMAT (IHl) 
WRITF<3»A)A»B 

4 FORMAT {2X, 'GRAPH OF Y = AX + B »A = •»F5.2»5X»»B = ••F5,2»//) 
00 5 I=l»61 

00 «5 J=l»61 

5 GRAPH( I tJ)=BLANK 
DO 6 I»l»61 

6 GRAPH ( I »31 )»0OT 
00 7 J«l»61 

7 GRAPHt31»J)«D0T 
DO 9 I»l»61»? 
XaFLOAT< 1-31 ) 
Y»A»X+B 

IF(ABS< Y)-31. J8»8»9 
fl J«IFrx{31.5-Y) 

GRAPH( I JaSTAR 
9 CONTINUE 

^5nfi3llO) il GRAPH ( I»J)»I«1»61)»J=1»61» 



10 ?§WEf?jjJ?iiA??*''"' 

GO TO 100 



99 CALL EXIT 
EMd 

UNREFERENCED STATEMENTS 
99 

FEATURES SUPPORTED 
ONE WORD INTEGERS 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 3738 PROGRAM 284 

END OF COMPILATION 

// XEQ 
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X 



GRAPH OF Y = AX + B »A = 2.00 B = 1.00 * 
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GRAPH OF Y s AX + B fA = 5.00 



B = -3.00 



ERLC 
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GRAPH OF Y = AX + B = 1.00 B = ^.00 
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GRAPH OF y = AX + B tA = -1.00 



B = -^.00 



* 



ERLC 
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GRAPH OF Y = AX + B »A = 0.00 B = -2.00 
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Using the .same tcchniciuo as in the preceding problem plot the graphy of y = sin (x) from 0 radians to 

1 1,5 radians at intervals of .2 radian. 

NOTE: Since the sine never cxceedsj l|, do not use a square array, a rectangular array will allow 
120 spaces along the x-axis. A 2 1 row array would allow for values of the sine at evcrv teiHh^ffoni - 1 
to-1. 

(1) Solution: 

Follow the same plan as in the preceding problem, first reserving ^acc for the array, then filling 
it with blanks, and then filling the axes with dots. Compute values for the sine of x for every value 
of X from 0 radians to 1 1.5 radians. Round off the value of the sine to the nearest tentli and use 
this value to find its position in the array. When all values are computed print the array row-wise. 

(2) Coding form. 
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(3) Printed output. 



PAGF 1 
// JOB 



LOG DRIVF 

aaaa 



CART SPEC 
0001 



CART AVAIL PHY DRIVE 
0001 0000 



V2 *^0U ACTUAL BK CONFIG ft< 
// FOR 

* IOCS ( CARD* n I SK ♦in2PRlNTFR« TYPEWRITER •KEYBOARD) 
» LIST SnuRCF PROGRA*^ 
» ONE WORn INTFGFRS 

INTFgER RLANtC .DOTtASTtFUNCt 1 18«21 ) iXiY 
RFaO «?«12)BLANK.D0T«AST«X,Y 
12 FORMAT (5A1) 
DO ? Lsltllfl 
DO ? Kal«21 
? Ft/NC(L«K J =BLAN< 

DO S L»2.117 
5 FUNC(L»11 )sAST 
DO in <»! .21 
10 FUNCt 3»K ) =AST 
DO 20 L = 3»llf^»? 
2 = L-3 
A=Z/10. 
fl=SlN( A)+.05 
K»ll -IFIX(B»10. 1 
Fl/NC(L»K J =DOT 



20 



CONT INUE 
FU • • 



FtJNC( 1»11 )5X 
Ff.lNCt 3»1 )=Y 
FlJNCt 3»21 )sY 
FUMCt llfl»H)=X 
WRITF (3»13) 

13 FORMAT (?X,'THIS IS THE GRAPH OF Y = S I N ( X )•»/// ) 
WRITF (3»14M (FUNC(L»K) •L=l,llfl)»K=U21) 

14 FORMAT (2X»nflAll 
CALL EXIT 

FFATURFS supportfd 

ONF WORD integers 
IOCS 

CORF RFOUIREMENT.S FOR 
COMMON 0 VARIABLES 2498 

END OF COMPILATtON 

// XEO 

THIS IS THE GRAPH OF Y=SlNtX) 



PROGRAM 



2B6 



c. Output - y = tan (x) 



pAr,F 1 



LOG DRIVE 
0000 



CART spnc 

OOOl 



CART AVAIL 

nno.i 



PHY DRIVE 
0000 



V? M04 



ACTUAL 8< CONFIG 



// FOR 

♦ I DCS ( CARD •n I SK.113?PR INTER. TYPEWRITER. KEYBOARDS 
♦LIST SOURCE" PROGRAM 
♦ ONE WORD INTEGERS 

iNTECiFR BLANK .DOT .STAR .GRAPH ( 6 1 .6 1 ) 
100 READ( 2 . 1 ) BLANK. C^OT .STAR 
1 FORMAT {3A1> 

WRITE(3 .3) 
3 FORMAT t IHl ) 
DO S 1=1.61 . 
DO S J=1.61 

5 GRAPHt I . j)=BLANK 
Do A 1=1 .61 

6 GRAPH( 1.31) =D0T 
DO 7 J=l»6l 

7 GRAPH (31 • J) =00T 
DO Q 1 = 1 .61 • 2 
X=FLOAT ( 1-31 ) /lO. . 

CnSi X ) )30 .9f 30 

3n v-5I^J(x ) /CCS (X) 

IF(APS(Y)-3«l)fi .a.9 
H J=3l-( IFIX( Y*10. ) ) 

GRAPH( I ♦ J)=STAR 
9 COWTlNUe 

'VRITF(3.10^ ( (GRAPrK I . J ) . I = 1 . 6 1) » J= 1 . 6 1 ) 



10 fORMAT|^X.61Al) 



ERIC 



GO TO 100 
<J0 CAUL EXIT 
END 



99 



UNRFFPRFNCED STATFVENTS 
9S 

FFATUPFS SUPPORTf^D 
CiNF woRO INTEGERS 
IOCS 

CORF RFOUIRF'^ENTS FOR ^ 
COMMON 0 VARIABLES 3734 PROGRAN" 

FND OF C0*-1P ILAT ION 

// XEO 
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F. SPECIAL FORTRAN SUPPLIED SUBROUTINES 



ERLC 



SLITE and SLITET — These subroutines simulate the testing of hghts that can be turned on and off and 
tested by prograrn statements. The lights do not actually exist on the 1130, but the program may use the 
subroutines to produce the same effects as if they were present. 

a. To r*^ake use of the SLITE subroutine the statement, 

CALL SLITE (i) 

is used. "I" is an integer variable which may only htive the value of 0, 1, 2, 3 or 4. If I = 0, all 4 lights 
are off; if I = 1, light I will be tuv/ied on; and so on. 

b. To test the status of the test lighu the statement, 

^ CALL SLITET (I,N) 

might be used is an integer variable which may equal 1,2,3 or 4 and N is an integer variable which 
may equal 1 or 2. This second variable N will be set to 1 if the light (I) is on and 2 if it is off. If the 
sense light that was tested was on, it would then be turned off after the execution of the subroutine. 
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2, Overflow and Underflow 

a. When a number:becornes-too large to be handled by the computer, a condition called overflow exists. 
A numl)er that is too small, a decimal fraction witli too nian>' zeros between the decimal and the 1st 
significant digit, causes underflow. These conditions ma\' be tested b\ a subroutine called OVF.HFI., 

1). The form of the statement is — 
CALLOVERFLlI) 

where I is an integer variable name. When an overflow exists, I is set to 1, when an underflow exists, 1 
is set to 3, when neither condition exists, I is set to 2. 

c. Execution of the subroutine includes resetting the computer to a no overflr vv condition, 

d. A computed GO TO is usually used after au overflow to direct the computer to various error messages. 

3, Division by Zero 

a. An attempt to divide by zero will cause tjie computer to indicate a "divide check. However, the pro- 
gram is not interrupted, but continues as it the division had been completed. 

1). To check the status of this "divide check" indicator, a subroutine DVCHK (I) has been supplied l)y 
the manufacturer. 

c. The statement is 

CALI. DVCHK(I) 

where I is an integer variable which will be set to I if the indicator is on and 2 if it is off, 

d. As is the case with OVERP'L, the subroutine resets the indicator to an off condition. 



ERIC 
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PROBLEM S^UPPLEMENT 
Algebra Section I 



TWO-POINT 

lis program will determine the distance between any two points provided the rectangular coordinates are k 

VARIABLES 



XI ~ the X coordinate of the first point 
Yl ' the Y coordinate of tlie first point 
X2 - the X coordinate of the second point 
Y2 - the coordinate of the second point 



J' 





\ 


Read 


^1 '^2 ^ 





DIST z 




yes 
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THE SQUARE ROOT OF COMPLEX NUMBERS 



This program determines the square root of complex numbers by the algebraic process of equating I^X + Yi to A + Bi 
squaring both side? and equating the real parts and the imaginary parts. The resulting system is solved by the simulta- 
neous method for A and B. A considerable amount of the solution must be obtained by algebraic methods before pro- 
gramming is begun. The algebraic solution follows: 
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/x+Yi = AfBi 
X*Yi - A2+2ABi-B2 

(1) X - a2-b2 
Yi = 2ABi 

(2) Y s 2AB 



A - ^ 
^ 2B 



(1) X - (1^)2 -b2- 

X r li " -B2 
4B^ 

4b2x m y^-4B* 



4b2x*4B^ 


= +y2 


4B^+4B^X 


= ■fY2 


B^1'B2x 


. i± 

4 


B^+b2x^x£ 




4 


4 4 


(b2+|)2 


_ y2+x2 
4 
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VARIABLES 



\ - the real part ol" the ,uivLMi mimher 

V - the coofficient of tlic imaginar>" part of the ^iven nuinlier 
A - the real part of the sohitioii 

B - the eoefficieiit ()f the iniai«;inar\" part of tlie sohition 




Write 
A+Bi 



Write 
A-Bi 



Write 
AfBi 



Write 
A-Bi 




End 
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DIVISION OF COMPLEX NUMBERS 
This program determines the quotient of two complex numbers. 

Multiplying the numerator and denominator by the conjugate of the denominator must be accomplished prior to 
writing the program. - 



^ = rfei 
cfdi 



a»bi ^ c-di ^ (ac>bd)4(bc-ad)i 
c^di c-di - c^td^ 



J. , ac-fbd V 
c2*d2 



^ bc-iiad 
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VARIABLES 



A - real part of numerator 

C - real part of denominator 

B - coefficient of imaginary part of numerator 

D - coefficient of imaginary part of denominator 

REAL - real part of quotient 

EMAG - coefficient of imaginary part of quotient 

DENO - denominator of quotient 



^ Start ^ 



\ 

Read 
a,b,c,d 






1 




RNUMs 
acfbd 





ENUMai 
be -ad 



DENOs 
c^+d^ 



REALz 
RNUI4 



EMAG= 
DENO 
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FORMAT 



H9 



.F9. 



ITERATIVE DEMONSTRATION 

^ [■ . 

This program is a most powerful tool.of the programmer and demonstrates clearly the "replacement * value concept . 
of computer programming. The technique can be found in most manuals of programming. 

Given an e(|uati()n such as: . , ■ . ' . 

3x - 4 = V^T - ' 

Set each side e(iual to y: ■ ^ , • . 

y = 3x - 4 . . ■ . ■ 

y = y/l^ '• ■ ■ • ' 

Sketch a graph with both equations on the same set of axes. The intersection of these graphs is then considered to be an 
approximation of the solution set of the original equation. , . 
, Partially solving the original equation by normal algebraic methods yields: •. ' . 

. ' .■ ' ■ ' >, , 

(XNEWj 3 

The approximation which was found on the graph is used to compute a new xrThe'two.values of x are then compared. 
If the difference between the two is more than a predetermined TEST value, the new x is used in the expression.to eval- 
uate another XNEW and the process continues until a value equal to or smaller than the TEST constant is reached." . 
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The value of this program ean be demonstrated by ehangiiig the equation eard only, anc! the input x value to solvi 
eaeh of the foHowing: 



X = cos(X) 
sin(x) = log]^Q(x) 



Start J 







\ 

Read X 








XNEW = 

\/2x + 4 
3 




^ -i — 1 




1 



TEST r 
ABSfX-XNEW) 
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SORTLIST 

This. program will sort a list of numbers into ascending order. It accoinplishesJhis by comparing adjacent numbers 
and rearranging them if they are out of order. This is an important technique in programming. 

« ' ' . . . - . _• ". 

VARIABLES ' 

N - the "number of numbers in the list ^ 

A - The actual numbers comprising the list - • 

SAVE - a variable needed to keep a number when its order is being changed. It would otherwise be destroyed when 
another number is moved into its place. i. .. 
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A(in) = 

SAVE 
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30 



So 

3 



HE 



fOR'SiAN SfATt.vfril 



!V.5.I>;A!5...'AC7.:0^ 

A/ 



J 



F.ORri 
PCS 

P.O. rjo. I 
if .(.A ex.) 'A 



P.P.) . :-J 



SAVE 

A ex.) 
AXXt 

C AL L 



; 

(MI.) 
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DISTANCE FROM A POINT TO A LINE ^ 

Because this program gives the appearance of being relatively short and simple, it has the effect of impressing stu- 
dents who follow its development. 

It demonstrates vividly the advantages of simplifying ali algebraic equations and combining them where possible so 
that the complete program consists of a minimum number of statements. • . 

" The system — . • 

A2X+B2y+C2iO 

was used and solved for x and y. The relationships used in the program were derived from these solutions. 

The steps include: . 

I. Determit.e slope of given line. Slope 1= _ 

Bl 

2- Using this slope determine the equation of the line passing through the point and perpendicular to the given 
line. (The slope of this line is the negative multiplicative inverse of the slope of the given line, ) 

• , ^1 ' ' 

Slope 2* TT-i 

3. Determine the point of intersection of the two lines. (Solve the system for \ and y. ) • 

4. Using this deterrnined point of intersection and the given point, find the distance between t hem. 

i VARIABLES 
A I - the coeflicient of X in equation 1 

ER?C 



A2 - the coeHicicnt of X in cquidkm 2 
Bl - the coefficient of Y in c(iuati()ii 1 
B2 - the coefficient of V in e(j nation 2 
CI - the constant in c(}uation I 
C2 - the constant in e(iiiation 2 

XANS - the X coordinate of the intersection of the two lines 
VANS - the \- coordinate of the intersection of the two lines 
DiS'I' - the distance from the point to the line. 
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Read 
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1 = 

1 






c. 


2 = 

-B^X 






1 \ 

XA 

B1C2 


NS = 


A1B2-A2B2 






YANS = 
AiC2-A2C^ 

A2B^-A^B2 











DISTz 


^(XANS -X) ^+ (YANS-Y) 
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SOLUTION OF QUADRATIC EQUATIONS 

This program will solve any quadratic equation, including those with imaginary roots, provided the coefficients 
A, B, and C are properly entered. 



VARIABLES 

A - the coefficient of X squared 

B - the coefficient bf X . 
C - constant , 

DIS - the discriminant, b'-4ac ; r ^ — * 

REAL - the real part of the complex solution .. ^ 

EMAC - the coefficient of the imaginary part-of-the complex solution 
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VH.XTk.t3 »^p- 

XL?/ 



^OL-V.L^L.L_ 

c. 



GO ,T 
RE A L 



CALL 



.B*.«.2.rj4....0.«ALt 
I^)/7, |8, d 



0 10 



f..0RMA.T,(.2;( 



0_10 
tXlT 



)!/.( 

\^}1/J. 



2.-0 
)AiAj. 



,XWA&J 
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r i 0 . .2 
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'X.^. 
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LOCATION OF REAL ROOTS (SUBROUTINE) 

The subroutine finds real roots between 2 points (XO,f{XO) ) and (XI,f{Xl) ). This is accompHshcd by bisecting 
the interval XI, XO, and evaluating at the new X8. If X3 is within .00005 unit, it is declared to be the real root. If. 
not, a product testing'hillows. A positive product For XKXS indicates that the real root lies between XO and X3. 
..:rhcret<>rc.the new XI is X3, and the bisection is repeated. If a negative product for XPX3 is determined, then the 
real root lies between these 2 values and the new XO is X3. 

VARIABLES 

„ N .--„.-numbcr ot terms in the polynomial * - . 

A{N) - coefficients of polynomial 

XO - upper limit of interval containing real root ^ 
XI'- lower limit of interval containing real root 
■ X3 - an evaluated intermediate term between XO and XI 
J - a counter index * . 

Value (A,XI,N) - another subroutine which evaluates the polynomial at XI 
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PROGRAM GRAPHING 

Although a curve plotter is available for the 1 LSO.computer, this program is included as a dejnonstration for plotting. 
Double subscripted variables. (IP) are used to identify points of a 41 x 41 array. This matrix is first filled with blanks, 
then positions'Nvhich will represent the x and y a.xes are filled with dots,. Integral pairs which satisfy the equation are 
shown on the graph as asterisks. For this program, coefficients of the polynominal (quadratic) ax^ +bx+c=:0 are read 
into the program. This equation is evaluated for integral values of x from -20 to +20. Results of this evaluation are 
compared with each of the y coordinates between -20 and +20 which might be paired with the x's. If the result of the 
comparison is 0, the pair represents a point on the graph of the equation and an^asterisk is placed in storage for this 
point. Finally, using a self-iiidexed WRITE statement, all values now occupying the matrix are printed. By changing 
the arithmetic statement which evaluates the equation, and changing the statement which reads the coefficients ac- 
cordingly, other equations could be plotted. 

The input card contains a blank in column 1, a period in column 2, and an asterisk in column 3. 

Separate graphs, each on a fresh sheet of paper, wall be produced if several cards are used for. different values of a, b, 
and c . . • 

Space for the array IP is reserved by the INTEGER statement rather than the usual DIMENSION statement. 

' VARIABLES 

A,B,C - coefficients of a quadratic equation 

X,Y - coordinates of points on the graph 

BLANK r an alphabetic blank . 

DOT - a period . 

AST - an asterisk . . • . 

IP - points of a grid ./ 
P- value of the equation * V 
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TEST 

A useful demonstration for any type of class, this program is presented because of its versatility. It is not actually de- 
signed for serious testing, but rather as a demonstration that is easily understood, but is of a serious nature. It was first 
written for mathematics classes, but later was used in social studies, english, and music. Substitution of appropriate 
(juestions for the discipline desired, in the correct order is all that is needed to adapt this test to another subject matter 
area. 



PAGE. 1 
// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0002 0002 0000 

// FOR 

*I0CS(CARD«TYPEWRITER»<EYB0ARD»1132 PR I NTER ♦ D I S< ♦ P APER TAPE) 
*LIST SOURCE PROGRAM 
C PROGRAM TEST 

777 WRITE( 1 ♦! ) 

1 FORMAT (• ENTER YOUR NAME') 
READ (6»40) NAME 

AO FORMAT {A30) 
WRITE 

41 FORMAT (• ENTER YOUR PERIOD NUMBER') 

READ(6»42 )N0 
A2 FORMAT iI2) 

WRITE (1*2) 

2 FORMAT ( 'ALGEBRA TEST* NOTE — *»2 =SQUARE » » / / » 

1« THIS SECTION OF THIS TEST CONSISTS OF A SET OF STATEMENTS • 
2«T0 BE CLASSIFIED AS TRUE OR FALSE*) 
WRITE (1»25T 

25 FORMAT (• IF YOUR ANSWER IS TRUE* ENTER !.♦ IF FALSE ENTER 2.') 
WRITE(1»3) 

3 FORMAT(' SAMPLE QUEST ION •♦// » 

1' GIVEN THE FUNCTION F ( X ) =3 ( X-1 ) ♦*2+2 ♦ • / ♦ • THE GRAPH HAS A MINIMUM 
2P0INT, • // f^ENTER YOUR )^NSWER'/») 
READ (6»30) ANS 
30 FORMAT (F4.2) 

IF<ANS-1. )61,60»61 

60 SC0RE=2. 
WRITE (1*4) SCORE 

A FORMAT(' YOUR ANSWER IS CORRECT. YOU HAVE SCORED F7 . 2 // ) 
GO TO 16 

61 SCORE=0. 
WRITE( 1 )SC0RE 

5 FORMAK* YOU GOOFED. YOUR SCORE IS'»F7.2//) 
16 WRITE ( i»6) 

6 FORMAT(' THE REAL TEST BEGINS HERE«S//» THE EQUATION OF THE AXIS 
lOF SYMMETRY IS X=l. •♦//»• ANSWER 1. OR 2.') 

READ (6»30) ANS 
SCORE=0. 

IF (ANS-1. )6?»62»63 

62 SC0RE=SC0RE+?. 

63 WRITE ( 1»7) 

7 FORMAT(«THE COORDINATES OF THE VERTEX ARE (-1»2)*//) 
READ (6»30) ANS 

IF (ANS-1. )64»65»6A 

64 SC0RE»SC0RE+2. 

65 WRITE (1»8) 

a FORMAT(«THE GRAPH IS A HYPERBOLA'//) 

READ (6»30) ANS 
• IF (ANS-1.) 66»67»66 

66 SCOREsSCORE+2. 

O 
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67 WRITE (1»9) 

9 FORMAT ('THE MAXIMUM VALUE OF THE FUNCTION IS 2'//) 
READ (6*30) ANS 
IF (ANS-1. )68t69i68 

68 SC0RE«SC0RE+2. 

69 WRITF (lilOJ 

10 FORMATCTHIS GRAPH IS SYMMETRIC WITH RESPECT TO THE Y-AXIS*//) 
READ(6t30)ANS 

IF {ANS-l.)70t71»70 

70 SC0RE=SC0R6-»-2. 

71 WRITF (1»11)SC0RE 

11 FORMATS YOUR SCORE ON THIS TEST IS'tF7.2//) 
IF ( SCORE-7. )72t73»74 

72 WRITE {ltl2) 

12 FORMATC YOU NEED TO STUDY THIS AGAIN* ) 
GO TO 80 

73 WRITF (ItlS) 

13 FORMAT {• YOU BARELY MADE ITt STUDY MORE') 
GO TO 80 

74 WRITE (1»14) 

14 FORMAT ?• YOU PASSEDt KEEP UP THE GOOD WORK') 

80 WRITF (1.81) 

81 FORMAT (' IF THIS IS THE LAST PERSON TO TAKE THIS TEST ENTER 
INUMBER 88. 88. IF NOT TYPE IN 0.»> 

READ (6.82)Z 

82 FORMAT (F5.2) 

IF (Z-88.88J777.555.777 
555 CALL EXIT 
END 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 10 PROGRAM 764 

END OF COMPILATION , 

// XEQ 
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PROBLEM SUPPLEMENT 
Trigonometry Section II 



POTRE 

R and THETA must be given and the X and Y coordinates are found. This simple program is easily understood by 
beginning trigonometn' students, and can be programmed with only a minimum of practice in FORTRAN. 9 FOR- 
MAT provides for spacing between answers. 

VARIABLES 

R - polar distance 

THETA - direction angle in degrees 
RDINS - radians in theta 

X - abcissa ✓ 

Y - ordinate ( Start ) 



^Describe 
Program 



Read 

r,e 



Change 
Degrees 

to 
Radians 



xa r cos 6 
y= r sin 9 
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LISCO 

This program illustrates input by a DO-loop. No data cards are required. The library function COS is employed. All 
the trigonometry required is knowledge of the meaning of the cosine and changing from degrees to radians. A good 
point to emphasize is the fact that the word COS cannot be used as a variable name, because it is the name of a library 
function. 

VARIABLES 

N - number of degrees in angle 

X - real number for number of degrees in angle 

RANG - radians in angle 

C - cosine of the angle 
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start 



Initialize 
N = 1 



Change to 
real no 

.X r N - 1 



Subtract 1 to start 
values at zero 



Chang 
to rad 
(RAD 


e X 

ians 

X) 


. i 





C=COS (RADX) 



Computer uses radian 
measure 
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TANCR 

This program is similar to PROGRAM LISCO but since the tangent is undefined at 90°, provision for a message to 
this effect is necessary. This is an easy program and could be assigned to be written by students after they have been 
shown PROGRAM LISCO in class. 

VARIABLES 

X - number of degrees in the angle 
RANG - number of radians in the angle 
S - sine x 
C - cosine X 
Y - tangent x 
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start 




Initialize 
Nrl 



I 





XsN-1 


L ^ 



in 

Change 
Degrees to 
Radians 

zn 

Sssin X 
Cbcos X 




Ns 


^ no ^ 


N+15 
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LAW OF COSINES 

This is an extremely simple program using simple arithmetic statements. However, the introductory statement in 10 
FORMAT requires more spaces than can be used on one card, so that the use of column 6 for continuation of longer 
statements is illustrated. 40 FORMAT illustrates a method of spacing between problems. 

VARIABLES 



B, C - given sides 
ANGA - given angle in degrees 
RANGA - radians in given angle 
A - missing side 
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Start 



Describe 
Program 



Read 
B,C, Angle A 



Change 
Degrees 

to 
Rjtdlans 



a 




^ b^fc^-2bc cos A 
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RETOP 

The \ and Y coordinates of a point are read from cards and the polar distance (R) and direction angle (0) are comput- 
ed. Most students are familiar with angles measured in degrees in the early stages of the study of trigonometry . Howev- 
er, the ATAN function produces results in radians and only for the principal values of the inverse tangent (-irto+ ir). An 
excellent opportunity for practice is realized by having the program convert the values of the ATAN to the familiar 
measurements in each of the four quadrants. The signs of the coordinates in each of the 4 quadrants are checked and 
appropriate quantities added to produce angles between C and 360''. Quadrantal angles can be handled in the same 
sequence, . 

VARIABLES 

\, Y - rectangular coordinates 
R - polar distance 
THETA - direction angle 
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CEED 
1 



Describe 
Program 




THETA s 
THETA ♦ 180 



ERIC 



Read X, Y 




Radians s 
Atan (Y/X) 



Change 
radians Co 
degrees 




THEXA s 270 



THEIA s 90 




THEIA s 
THEIA * 360 
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PROGRAM MISFOR 

This program is suitable for use in the early stages of b ^th trigonometry and programming. It is similar to the pro- 
gram REFOR, but unlike it, in that data must be entered o i cards instead of on the console keyboard. It could be useful 
as an assignment — after the demonstration program REFOR has been used. One ambitious student combined MIS- 
FOR and REFOR so that the new program could handle both types of problems. The radius vectors and direction an- 
gles are first changed to complex numbers and then subtracted. The missing force is found as a complex number and 
then changed to polar form. 

VARIABLES 

RR - the polar distance of the resultant 

FR - the polar distance of the known force 

RTH - the direction angle of the resultant in degrees 

FTH - the direction angle of the known force in degrees 

RRTH - RTH in radians 

RFTH - FTH in radians 

RX - X component of the resultant 

RY - Y component of the resultant 

FX - X component of the known force 

FY - Y component of the known force 

F2X - X component of the missing force i 

F2Y - Y component of the missing force 

F2R - the polar distance of the missing force 

F2TH - the direction angle of the missing force in degrees 

RF2TH - F2TH in radians 

ERJC 139 



0. 



' Read N 


RR, 


FR 


RTHj 


FTH 






Change 


RTH, 


FTH 


to Radians 



RX « 

RR X cos(RRTH; 



FX = 

FR X cos(RFTH; 



RY s 
EIR X sin(RRTH) 





■ 


FY s 
?R X sin(RFTH) 






F2X 
RX 


s 

- FX 



5 




IAN: 



F2Y 
F2X 



RF2TH, z 
tan"^ TAN 



Change 
RF2TH 
to Degrees 



Writa 
RR, RTH 
,FRo FTH 
r2R,F2 
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RITRI 

To practice the techniqin.' of using subroutines, students wrote program RlTRl. Most of the techniques had alreadv 
been covered and this was the culminating activity for some students. Others who were more ambitious wrote similar 
programs for the solution of any triangle. This program clearly illustrates the need for flowcharting, as well as control 
cards needed for naming the main program, and for storing and deleting the program arid the subroutines. 



SUBROUTINES 



A. AOPSI 



Subroutine AOPSI solves for the missing parts when an angle (ANGX) and the side (X) are given. The values 
which are used in the subroutine are those values which are listed in the CALL statement. The results are re- 
turned to the main program so that they can be labeled properly in the printed output. 



id 



VARIABLES 



ANGX - given angle (A or B) 

X - side opposite the given angle (a or b) 

AN MIS - missing angle (B or A) 

RANGX - radians in angle X 

HYPOT - hypotenuse (c) 

SiMIS - missing side (b or a) 




Amis s 

90°-ANGX 



BANGX s 
ANGX X TT 



HYPOT ■ 
X 

SIN (BANGX) 



SIMIS s 
\1 HYPOTZ-Xi« 



Return 
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B. 



SIHYP 



Subroutine SIHYP solves for the missing parts when a side (X) and the hypotenuse (Z) are known. The dummy 
variables X and Z are replaced by the values used in the CALL statement. 



VARIABLES 

• X - given side (a or b) 
Z - hypotenuse (c) 
SIMIS - missing side {b or a) 

TANA - tangent of angle opposite the given side (A or B) 
BANCA - radians in angle (A or B) 

ANMIl - degrees in the angle opposite the given side (A or B) 
ANM12 - degrees in other missing angle (B or A) 




SB'IIS 



TANA - 
X 

SIMIS 



BANGA = 
tan-lTANA 



ANMIls 
(RANGA)X180O 



ANMI2- 
90O-ANMI1 



Return 
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C. ANADS 



Subroutine ANADS solves for the missing parts when an angle (ANGX) and the adjacent side (Y) are iiiven. 

VARIABLES 



ANGX - given angle (A or B) 

Y - side adjaeent to the given side (h or a) 

RANGX - radians in given angle 

HYPOT - hypotenuse (c) 

SIM IS - missing side (a or b) 

AN MIS ' missing angle (B or A) 



Start ^ 



1 




AN( 
Frc 


3X, 

If 

301 






RANGX s 
ANGX X TT 
180 



HYPOT 
Y 



COS (RAiSfGX) 



SIMIS = 
HYPOT^-y^ 



AKMIS z 
9a?-ANGX 



Return 
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D. ANHYP(ANGX,Z) 



Subroutine ANHVPsolves for the missing parts when an angle (ANGX) and the hypotenuse (Z) are given. 

VARIABLES 



ANGX - given angle (A or B) 

Z - hypotenuse (c) 

ANMIS - missing angle (B or A) 

RANGX - radians in given angle 

SIMfl - side opposite the given anjrie (a orb) 

SIM12 - side adjacent to the given angle (b or a) 



Start ^ 



ang: 
z 

Fra 


K 
n 


CAL| 




ANMIS » 
90O-ANGX 



RANGX s 
ANGX X TT 

180O 



t • 

• 

SIMIl • 
Z X SIN(BANGX:i 



SIM 


12 - 


\|22-SIMIl2 






Ret 


urn 
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THE AMBIGUOUS CASE (S.S.A.) 



This program will give a complete solution for a triangle if twn sides and ihe angle npposite one of these sides are giv- 
en. The sides must be less than 1000 and space for 4 decimal places is provided. The known parts are entered in the or- 
der a, b, angle A. Angles are in degrees to 4 decimal places. 

VARIABLES 



a - side a 
b - sjde b 

ANGA - angle A — ~zz±^ 
XANGA - radians in angle A 



^ Start ^ 



Write 
.Statement; 
of 

VProblem/ 
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COS B B 



|/l-sin2 B 



tan B = 

sin B 
cos B 



Angle B r 



tan ^ B 



Change 
Angle B to 
Degrees 



Angle C = 
180°- (A+B) 



Change 
C 

to Radians 



Q „ a sin C 
sin A 




Angle B 



tan*"-^ B 



Change 
Angle B To 
Degrees 



Angle C • 
180°-(AfB) 



Change 

C to 
Radians 



C - ^ sin C 
sin A 




0 



B2 r 
ISOO-B 



02 = 



180O-(AtB2) 



' -Change 

Angle 02 
to :^adians 



Side C2 - 

a sin Co 
sin A 



Write 
Side 02 
.Angle Bo 
Vngle 02 
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REFOR 

This program was vvrillen as an experiment in using the computer to teach the lesson. Not only are results computed, 
but the method of computation is explained, so tjiat the student can use the output as a study guide. Since the student 
must enter the values on the typewriter, some aclditional interest is generated. Though the teacher who originated this 
program used it frequently as a demonstration program, she felt that even more improvement should be made by allow- 
ing for even more student participation. 

The magnitude and direction of each of two forces are entered. The angles are in degrees. Both angles and magni- 
tude may contain 2 decimal places. The method of solution is addition of the complex numbers which represent the 
forces. 

VARIABLES 

FORCA - magnitude of first force 
DIRLA - direction angle of first force 
FORCB - magnitude of second force 
DIRLB - direction angle of second force 
RADLA - radians in first angle 
RADLB - radians in second angle 
A - X component, of first force 
B - X component of second force 

C - Y com, onent of first force 

D - Y component of second force 

X - X component of resultant 

Y - Y component of resultant 

R - magnitude of resultant 

DIRIA - direction angle of resultant 



^ start ^ 



Write 
vDocumen- 
tation 







r 

Read 
FORCA 







Ask For 
DIRLA 



Ask For 
FORCE 



Read 
FORCE 







Read 
DIRLA 







0 

Write 
J-Iethod to 
ihe Used 




Write 
Directions 
"or Chan; 
to 
adians 



1 




RADLA c 
DIRLA X TT 
180° 



RADLB = 

DIRLE X 
180° 



JL 



Write 
^Directions 
For 
^Computing 



1 



A = 
FORCA X 
COS (RADLA) 





d 


D 




FORCE X 


SIN (RAD LE) 






\ Write / 


U,E, 


C,D / 



\ Write 
Add 2 
Complex 
^Numbers 



Y:B+D 
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Ask For 
DIRLE 



Read 
DIRLE 



B z 
FORCE X 
SIN (RADLA) 



C = 
FORCE X 
COS( RADLB) 




R zp^i-Y^ 




PAGE 1 
// JOB 

LOG DRIVE CART SPEC CART AVAIL PHY DRIVE 
0000 0001 0001 0000 

V2 M05 ACTUAL 8K CONFIG 8K 

// FOR ' 
♦ IOCS(CARD»TYPEWRITER»KEYBOARD»1132 PR I NTER » D I SK » P APER TAPE) 
*LIST SOURCE PROGRAM 
C PROGRAM REFOR 

222 WRITE ( 1»1) 

1 FORMAT ('THIS PROGRAM WILL FIND THE RESULTANT OF TWO FORCES WHICH 
:ACT SIMULTANEOUSLY AT THE SAME POINT ON A BODYV/» 

2«ENTER THE MAGNITUDE OF THE FIRST FORCE TO THE NEAREST HUNDREDTH') 
READ(6»2)F0RCA 

2 FORMAT (F7.2) 
WRITEI 1 »3 ) 

3 FORNiAT (• ENTER THE DIRECTION ANGLE OF THE FIRST FORCE TO THE NEAR 
lEST HUNDREDTH' ) 

READ (6»2)DIRLA 
WRITE(1»4) 

4 FORMAT (• ENTER THE MAGNITUDE OF THE SECOND FORCE TO THE NEAREST 
IHUNDREDTH') 

READ (6.2)F0RCB 
WRITE (1»5) 

5 FORMAT (♦ ENTER THE DIRECTION ANGLE OF THE SECOND FORCE TO THE NEA 
IREST HUNDREDTH • ) 

READ (6.2)DIRLB 

WRITE ( 1 »6) FORCA»DIRLA»FORCA»DIRLA»FORCB»DIRLB»FORCB»DIRLB 

6 FORMAT( 'THE FIRST FORCE CAN BE REPRESENTED BY THE COMPLEX NUMBER 

^np^*^iM-^6REg^a^^fii*Rf^REi§^fi^gvfAriB;^(iE^i^ cDi. 

3C«« »F7.2 9'COS« »F7.2»«AND D^-- ' » F7 . 2 » • S I N • » F7 . 2 ) 
v.'RITE (1»7)DIRLA»DIRLB 

7 FORMAT ( 'THE TABLES IN THIS COMPUTER ARE IN RADIANS SO IT IS NECE 
ISSARY TO CHANGE DEGREES TO • / / » ^ l^AD I ANS. WE DO THIS BY MULTIPLYING 

2 THE NUMBER OF DEGREES BY PI AND DIVIDING BY 180.V/» 
3«RADLA*« »F7.2» • X 3 , 14 1 6 / 1 8 0 . • » / / » 

4«RADLB= • .F7.2» • X 3 . 1416/ 1 80 . • / / ) 
RADLA=D I RLA*3. 1416/180. 
RADLB=D I RLB*3. 1416/180. 
WRITE ( 1 »8 )RADLA»RADLB 

8 FORMAT (• RADLA=« »F7.4»5X. •RADLB=« »F7.4 //) 

WRITE(1»9) FORCA»RADLA« FORC A » RADL A »FORCB ♦ R ADLB» FORCB »RADLB 

9 FORMAT (• A»» »F7.2» 'COS' »F7.4»/» 
1 •B=» .F7.2 . 'SIN' »F7.4»/ » 

2«C=« »F7.2»'COS« »F7.4»/» 

3 'Ds' .F7.2» 'SIN' »F7.4// ) 
. A«FORCA*COS<RADLA) 

B=FORCA*SIN(RADLA) 
C=FORCB*COS(RADLB) 
D=FORCB»SIN(RADLB) 
WRITE( 1 »10)A»B»C»D 

10 FORMAT ( •A=SF9.4»/» 
1 • B= • .F9.4»/ . 

2«C=!« »F9.4»/» 
3«D=« »F9.4//) 
WRITE (1.11)A»B.C.D 

11 FORMAT ( • A+BI = • »F7.2 » • + • .F7.2 ♦ • I • ♦/» 
1«C+DI = « tF7.2.« + « ♦F7«2»« I •//) 

WRITE (1.12) 

12 FORMAT (• TO FIND THE RESULTANT WE MUST ADD THESE TWO COMPLEX NUMB 
lERSM 

X = A+C 
Y = B+D 

WRITE(1.13)X»Y 

13 FORMAT! • THE COMPLEX NUMBER THAT REPRESENTS THE RESULTANT ISS//» 
1F7.2* »F7.2» • I • //) 

WRITE (1.14) 

14 FORMAT ( 'TO CHANGE THIS COMPLEX NUMBER WE USE THE FORMULA* ♦/♦ 
1«R=SQRT( X**2+Y**2 ) »AND TAN ( RADLX ) =Y/X • // ) 

RoSQRT ( X**2+Y**2 ) 



RIC 



IF (X) 115 #25 ,115 

25 IF{Y) 26»127»28 ~~ 
127 R=0. 

DIRLX=0« 
GO TO 116 

26 RADLX = V3. 1416/2, 
GO TO 126 

28 RADLX=3.1416/2« 
GO TO 126 

115 RADLX=ATAN<Y/X) 

126 WRITE ( 1»15)R,RADL.X 

15 FORMAT( 'Rs' sFT.Z* 'RADLXs' ♦F9.4»//» 

2DIVIDE^BY PI?)^'^^ ^^^"^ DEGREES WE MULTIPLY RADIANS BY ISO.. AND 

DIRLX=RADlX*180./3 .1416 
IF (DIRLX)35»116»116 

35 IF (DIRLX+90. )36»116»116 

36 IF (DIRLX+180. )38»116»37 

37 DIRLX=180.+DIRLX 
GO TO 116 

38 IF <DIRLX+360. )39»116»116 

39 DIRLX=360.+DIRLK 
GO TO 116 

116 WRITE ( 1»16)R»DIRLX 

16 FO'xMAT ( 'THE RESULTANT FORCE IS*»F7.2»/» 
1« THE DIRECTION ANGLE I S • ♦ F7 , 2 ♦ • DEGREES • ) 

WFUTE (1,17) 

17 FORMAT <• IF YOU HAVE ANOTHER PROBLEM TO SOLVE ENTER .9999* IF NO 
IT ENTFR 0. ' ) 

READ (6»18)2 

18 FORMAT (F7.4) 

IF (2-.9999)lllt222»lll 
111 CALL EXIT ' • 

END 

FEATURES SUPPORTED 
IOCS 

CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 38 PROGRAM 1152 

END OF COMPILATION 



PROBLEM SUPPLEMENT 
Advanced Mathematics Section III 



LIMIT OFMiX 
X 



This problem shows that the limit of SIN(X)/X approaches the value of one as X approaches zero. 

INPUT K - lower limit of X 
L - upper limit of X 
M ' interval 

OUTPUT PI/N - notation for X in terms of PI 
D - degrees in X 
X - radians in X 
SINX — sine of X 
Q - SINX/X 
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Q. SINX 
X 
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AREA UNDER A CURVE 
(TRAPEZOIDAL RULE) 

This program finds the area under the curve by the trapezoidal rule in the form: 

AREA = ((X(2)-X(1))/2)°(Y(1)+2.°SSUM + Y(M) ) 

INPUT 

A - lower limit(l) 

B - upper limit (2) 

N - number of internals 

FUNCTION: y= 1/x 

OUTPUT: 

X - X coordinate 
Y - Y coordinate 
AREA 

R is used to reduce error due to binary system (it is not necessary). 
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ERIC 



Start 





r 




Read 






A,B,N 






Y(I)=- 



X(I) 



R=R+ -t 

N 

.00005 





J — r 

SSUM= 
SSUMf 
Y(I) 












< I=N? 


1=1+1 



yes 



AREAr 



(YflU2,^S SUMfYm^) 



Write 
\X(I),Y(I)/ I:1,M 




Problecn/ \ y 
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iSS UK\ 
iWflXT 



jCALL 



XNUL 



lis,! 

W.HX-T 

F.o.n>ivr C.u 



0 40 
tXXTt 



-xCil)TA. 



.ARX 

Vaus. 
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0 «00 
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ELLIPSE 

This program will find a list of facts about the ellipse of the form: 
a2 b2 ^ 



INPUT: H,K,A,B 



OUTPUT: Focal point {x,y) 
Vertex (x,y) 
Length of nnajor axis 
Length of nninor axis 

End points of minor axis (x , ,y, ) and (Xg .y^ ) 

Eccentricity 

Focal width end points 

Focal width 
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Write the 
A or B is/ ° 




10 



ERIC 




F0Cl2=XKtC 



F0CI3=XK-C 



XFOC^aH 



XFOCIsH 



VERT-^XK+A 



VERT3rXK-A 



XVERrH 




VWrite This 
is a 
. Circle 





XVERT-H 



ZMAJ=2.*A 



ZMINr2.*B 



EmN22rH+B 
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FOCI=H+C 



FOCIS=H-C 



YFOCrXK 



VERT=H+A 



VERTSrH-A 



YVERrXK 



YVERTzXK 





XMINr2.*B 



£PMNrXK-B 



EPMINsXKfB 



EPMX=H 



EPMXlsH 



ECCENrC/A 



EPFWYr 

/ 3 

/h2,K2( F0CI-HV 

A^ 




EPFWY-EPWYl)'^ 
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EPMN3=H-B 



YEPMNrXK 



YEMNPrXK 



ECCENrC/A 



XEPFW= 



^4.i M-A^ (F0CI2-XK) 
t M ^ 



XPFWlr 
-XEPFW 



FW= 



J(XEPFW-XEPWl)^ 



Write 
Results 
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INVERSEOF ANY MATRIX 
(GAUSS -JORDAN) 

This program finds the inverse of any square matrix using the GAUSS - JORDAN transformation method. 
INPUT 

A matrix _ 
OVTPVT 
A matrix 

Elements of inverse 

If data switch 0 is up the program wiJI output each transformed matrix relative to A and to B (Identity Matrix) 



ERIC 



166 




Interchanging of 
+ Rows 



1:1 



X 



c(i) = 

A(M,I) 




N2=2*N 



I»NI+1 



1=1+1 






I=N1 










I2al2fl 



C(I) = 
B(M,I2) 



no 




1=1 



A(M,I): 
A(K,I) 



B(M,I); 
B(K,I) 
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A(K,I) 
C(I) 
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I2=l2tl 



B(K,I)- 

C(I2) 




t 
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ERIC 




A J sA (IN, IN) 




Dividing the Row 
by the Pivot Point 



1=1 



B(IN,I)= 
AJ 



Creation of 
Zeros in the 
Column Contain- 
ing the Pivot 
Point 



A(IN,I)= 
A(IN,I ) 
AJ 
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1:1 



HE 

A(J,I) = 
A(J,I)- 
XI*A(IN,I) 



B(J,I) = 
B(J,I)- 
XI*B(IN,I) 
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PROBLEM SUPPLEMENT 
Chemistry Section IV 

STP 

This program takes any known volume of gas in milliliters at any known pressure in millimeters and any known tem- 
perature in degrees Centigrade, and corrects this volume to standard conditions. 

VARIABLES 

INPUT: OV - Original volume. 

OT - Original temperature. 

OP - Original pressure. . 
Output: The program writes out the values of OV, OT, and OP and also the corrected volume for each set of values. 



CjEED 

1 . 



Read 



Write 
OV, OT 
OP 



TK s 
OT»273. 



CV s 

OV X OP ^ 273 
760; TK 
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W3 . / 



) oY, or, of 

O.F. 



rx 



Co 



CTOFTOK 

This program converts Onti^rade temperatures to Fahrenheit and also to Kelvin degrees. 
Input: None 

Output: All (Centigrade temperatures between 1 and 100 degrees with the corresponding Fahrenheit and Kelvin 
ecjuivalents. 

This program could l)e easily modified to produce (Centigrade readings when Fahrenheit is available, or any other 
combination. 



C - temperature in Centigrade 
F ' temperature in Fahrenheit 
FAK - temperature in Kelvin 



VARIABLES 
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start 



\ 



\ Write 
Y Column 
VleadingSi 



\ 




K ■ 


1 






C(K) 


= K-1 - 




F(K) = 


1 X C (K)*32 






PAK(K) = 
C(K)*273 - 



0 



Write 
C(K),F(K)y 
PAK(K) 
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PH 

This program converts PH values to the corresponding hydrogen ir»n concentrations. 
Input: PH values between I and 14» 
Output: The corresponding hydrogen ion concentrations. 
. This nrogram could be modified to produce PH values from hydrogen ion concentrations. 

VARIABLES 

PH - Scale of acidity and basicity 
H+ - hydrogen ion concentrations 
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EINSTEIN S EQUATION 



This program will solve the Einstein equation, finding the energy involved when each of the 103 elements is convert- 
ed into energy. 



VARIABLES 



X - atomic weight of each element 
E - the list of elements 
C • speed of light in cm. 



.. 



^ Start ^ 






\ 

Read 
X(I) 






I : 


: 1 






C s 3 > 




. i 


E(I) 
X(I) 


m 



I m 1,103 




no 



I • 1,3 



I 5 I+l 



1 



Write 
E(I) 



I a 7,9 



Write 

E(I) /Is 101,103 



E(I) 



I • 4,6 



CP 
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REXP 

This program will find the experimental value of the Universal Gas (Constant, compare it to the actual value, calc 
late the average and percent of error for each member of a class of 25 students . 

VARIABLES 

Input: V(l) - Volume of gas in liters. 

P(l) - Pressure of gas in millimeters. 

T(I) - Temperatureof gas in Kelvin degrees. 

XN(I) - Numberof moles of gas. 

Output: R - Experimental value of gas constant, 
VM - Molar volume constant. 
ABER - Deviation of R from accepted value. 
RAV - Average value of R, 

PCER - Percentoferrorof ABER from the accepted value. 
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start 
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Read 


V(I), 


P(I) 


X(I), 





1,25 




ABER . 
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HALF LIFE 

This program will determine how-long it will take a radioactive sample of known mass to decay to some desired mass, 
or if the desired mass is 0, to decay to one atom. 

VARIABLES 

• 

Input: XM - Mass of sample in grams. 

GM - Mass after reduction in grams. 

AN - Avogadro's Number - 6.023 x lO^^ .(Note) AN is in E Format ".6023 E 24 
TH - The halflife of the particular isotope. 
XMN - The mass number. 

Output: The time required in years (or in same units as TH). 
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start ^ 



Read 
SM, XM, 



Read 
AN 



XNA r 

Xr4 X AN 



GNA = 

GH X AN 
XMN 



N = 0 



L = 1 




XNA 




XNA- 


XNA 
2 



\ 



T 



End 



XL n 






T « 

XL X TH 


. 1 
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GAS ANALYSIS ' 

Problem: A mixture of hydrogen, carbon monoxide, methane and nitrogen has a vokime of 20.0 milHIiters. To this is 
added 25.0 mis. of oxygen and the mixture is ignited. The resulting cooled gas is found to have a volume of 23.9 mis. 
and to contain 6.2 mis. of carbon dioxide and 12.1 mis. of residual (wygen. This program calculates the percent by vol- 
ume composition of the original gas by the use ofc matrix algebra. 

VAuIABLES 



Input: 



CI = 0.0 
C2 - 0.5 
C3 - 10 
C4 - 1.5 
Co - 2 .0 



AMY - mixture volume 
AOV - oxygen volume 
CGV ^ cooled gas voluife ^ 
CDV - carbon dioxide voiunrie 
ROV - residual oxygen volume 



Output: W - volume of hydrogen 

X - volume of caibon monoxide 
Y - volume of methane 
z - volume of nitrogen 
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Write 
Program 
, Documenta- 
tion 




Read 
AMV, AOV, 
CGV,CDV,ROV 



Write 

\MV, AOV, 
^CGV,CDV,y 
ROV 



Compute 
Contraction 
Volume 



Solve 
i X 4 Matrix 



Solve 
% by volume 




Write 
%W, %X, 
7«Y, %Z 




Compute O2 
Consumed 
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PROBLEM SUPPLEMENT 
Physics Section V 

FREE FALL . 



Thi.« urogram will consider an object falling under the influence of gravity from any height and compute the time it 
w'.il tak.' 0 strike the ground. It will also compute the final velocity of the object. All ojther forces, including air resis- 
tance are .jnored. 

VARIABLES . . 

DIS - the height from which the object falls o ^,.„z ^^ 

TIME - the time it wyll take to fall 

VEL - the velocity of the object as it strikes the ground, 



0 




Ask for 
10 ) *\ DIS 



READ DIS 



TIME z 

SCiHT(2_xDls) 
32.08 



VEL = 
32.08 X TIME 
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EINSTEIN 

Thh rogram.Av:ill give the theoretical increase in length an object undergoes as it approaches the speed of light! It 
also accounts for the theoretical increase in time. 

Great facility can be obtained through the alteration of the limits of the DO-loop governing the velocity of the object. 

VARIABLES 

XLEN - the length of the object at rest 
XVEL - the velocity of the object 
XNTIM - the relative length of time 
• XNLEN - the relative length of the object 
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TIME = 1 
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,000 
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Read 


XLEN 



1 = 1 



XVEL = 
I-x 100 



XNLEN = 



XLEN 



\L XVEL^ 



Write 
XVEL 
XNLEN 
XNTIM 





•XNTIM = 
TIME-. 
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ROCKET 



In a rocket, fuel is continuously being burned at a tremendous rate; Consequently the mass of the rocket is constantly 
decreasing while the force of the rocket engine remains constant. '^\\? situation results in a continual increase in accel- 
eration as predicted by the^fofriiula F = ma. 

This ,jrogram will compute the mass, acceleration, distance traveled, and velocity of the rocket at one second inter- 
vals Rrtwo minutes. 



VARIABLES 



FORC - force produced by the rocket engine in lbs, or nt, 
RATE*- rate of fuel consup t^tion in mass/sec, 
XMASS - mass of the rocket and fuel, 
ACC - acceleration.^ 
DIS - distance traveled. 

V - velocity of the rocket. ' ^ 
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XMASS 
XMASS- 


(I) - 
T X RATE 


•1 






A<C(I) = 

FORC • 
XMASS(I) 





DIS(I) = 
ACC(I) X 



V(I) = 
(2 X ACC(I) X 
ST(I)) ♦0.5 




Write 
Column 
leadings 



Write 
VXMASS (I) 

^ACC (I) 



I =1, 120 



CALL EXIT 



Q End ^ 
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LIGHT INTENSITY 
This program solves the eiiuation K/ R^. The unknown term must be entered as the value -.1. 

VARIABLES 



XI - the intensity of the light 

XK - the caudle power of the source 

R - the distance of the source to the meter 
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THE INDEX OF REFRACTION 

This program will find the angle of incidence if the angle of refraction is known, or vice-versa, for any given index of 
refraction. > . 

VARIABLES 

Q - variable to determine which angle has been entered ' ^ ... 

AR - angle- of refraction 
RI - index of refraction 
AI - angle of incidence 
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RI 
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Read 
AR, RI 
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Write 
AI 
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PARABOLIC MIRROR 



1 liis pn)i2;rani uses a stories of IF statements to determine the unknown value. After solving for the appropriate 
known, the program direetion is determined through the use of a CONfPt/TKD GO TO statement . 



un- 



VARIABLES 



III - the height of the image 
IK) - the heiglit of the ohjeet 
SI - the image distance 
SO - the ohjeet distanee 
F - the loeal disiance 



Start: ^ 




Ask for 

SO, oz ?^ 
or 999 




v/rite 
SO,F 




Write no 
Solution 
vNecesbar 




ERIC 




202 





IBM 



FOBTHAN Coding Form 





• ^ FOKTRAN STAFEWENr 




c 


.THIS 






XL L C 










OJ!lt_JU 




















■X/ilfr W 


ZTH P 




LXC' , i/^ 


XAAJttt 
















.MR XT 






























IDXS.T 


AT C W 


.!wj?xx 


l.-X^- 
T-X>X6 

ikLX 


VAJ-Ui 

to CO 
V_EAC 




..TilL.- 


X^A&X 
L.- F O-t 

VA I. u 


AV, tl.X 


-VTA/VC 
AUA£.S 




H 
t 




T,.XMAG_I 
OJPJ^ACl 






















AT.Cf 1 
























a 






)-$X, 
















































































































Z<Lq. 

l^>.^ 


_xl(s 


X--.ft-93 

Am.. 
































.).A0.3 






OA 
























■ '■ '■ \ 




























AXULJ^ 
MiAILY 




HAV^t_ 




XiJL^A 


^}^^ 




THUlt 








TJLQJ1.XJ& 


























































T 


0 ,1^1 


..... 

























203 



IBM 



FOnTRAN Coding Form 





^ FORTRAN bTATtMENT 






RO f 












pi — • ' . • — 




■ ' ' . — ^ 






r — ' — — 








fro, T 






— \ — 






















TkOJi- 






M0:_:. 


























..M * F 




X . 




. . 





— 


— 








- 






&0 T 


0 s4 




























..AQA- 
















































• 












f h * z , 








ILL&XA 


NOT C 








ZA 

^lA. 




£-4.4., a 




-U 




«u: — ^ 
-JD 1 ftT 




— — 




6C.AL.. 

- — 


f 8 « 2) 



AiTt H 




2« V 


# ^ - 


OJJLJiA 
























































-CAIL 
.LAiJ> 






















: ^ ; • 










■ 


■ 















































































































































































































































ACCELERATION 

/ This prograhi is designed to make the computations necessary to compute a value for the average acceleration of a 
body acted upon by a constant force. The most important data required by this program are the displacement positions 
along the X axis. 

VARIABLES 



N - the number of displacement positions 

X - the values of the displacement positions 
L - number of intervals 

XI - initial position of object in each interval 
XF - final position of object in each interval 
DT - time constant for the intervals 

V - velocity 
DV - change in velocity 
XN - 'number of values 
AVGAC - average acceleration 
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1 = 1 








DX(I) = 
XF(I)-XI(I) 









Write 
Given, 
Results 



End 



DV(L) = 

mi 

DT 



_L_ 

. SUM = 
SUMfDV(I) 




I = I+l 



XN « N 




ERIC 



206 



IBM 



rORTRAN CoJmir fgrm 



I ,w,ffnie.f j,.2h ...J. 



kRHn 

Alt> 



. mo. TM 
a !FO/?/ih.T (Fl 0 .33 

k..-.*».:.i , 

fe.r-J:.ti... 



mx3\ 




IBM 



FORTRAN CodlnQ Farm 




ERIC 



207 



